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Preface  (to  part  II) 


The  design,  construction  and  software/firmware  "implementation" 
of  the  IEEE-488  interface  device  described  in  this  report  is  the 
result  of  labors  of  several  people. 

The  basic  design  and  layout  were, done  by  Dan  Terpstra,  Florida 
State  University,  Tallahassee,  Florida  and  Dave  Wright,  Univer¬ 
sity  of  Illinois,  Urbana,  Illinois.  The  current  PROM  program  was 
also  provided  by  Dan  Terpstra.  Construction  of  the  device  was 
done  by  Larry  Armour  of  A.J.  Lincoln  &  Co.,  Inc..  Some  design 
modifications  and  most  of  the  initial  debugging  was  done  by 
George  Bartley  of  AJL&Co. 

We  gratefully  acknowledge  the  help  of  these  people  in  this 
project.  We  also  wish  to  acknowledge  the  help  of  Mark  Ahles, 
Nicolet  Instrument  Corp. ,  Madison,  Wisconsin  who  came  to  our 
rescue  when  the  Nicolet  computer  failed  and  who  provided  the 
initial  contact  with  Dan  Terpstra  and  Dave  Wright. 


INTRODUCTION 


The  NIC-488/CTL  (referred  to  simply  as  CTL  or  the  CTL)  bridges 
the  rather  large  gap  between  the  Nicolet  1030  computer  (and  its 
relatives  referred  to  simply  as  NIC)  and  the  IEEE-488  (GPIB)  bus. 
The  system  consisting  of  NIC-CTL-GPIB  is  a  system  of  4  computers: 
the  Nicolet  itself,  the  CTL  which  actually  consists  of  two  micro¬ 
computers  and  the  computer  which  is  assumed  to  be  attached  to  the 
other  end  of  the  GPIB  cable.  This  is  an  interesting  and  rather 
complex  system  which  can,  and  should,  be  looked  at  from  several 
angles  in  order  to  fully  understand  the  operation  of  the  overall 
system.  This  report  provides  the  following  views: 

1)  The  hardware  -  a  brief  look  at  NIC  as  it  pertains  to  attach¬ 
ment  to  CTL  and  the  CTL  hardware  itself.  Note  that  the  GPIB 
is  partly  a  set  of  definitions  and  state  diagrams  and  partly 
some  hardware  (electrical  and  mechanical)  specifications. 

From  a  hardware  standpoint,  we  only  include  a  diagram  of  the 
bus-socket  pins  (which,  of  course,  is  standard).  Most  of  this 
information  is  contained  in  the  Appendices. 

2)  System  logic  -  i.e.,  a  description  of  how  the  system  works. 

This  is  done  in  steps  and  with  varying  detail  by  looking  at 
the  NIC/CTL  interface  and  the  CTL/GPIB  interface  separately 
since  they  are  well  isolated  logically. 

3)  System  software  -  there  are  basically  2  levels  of  software  to 
be  described:  the  "operating  system"  software  and  the  "appli¬ 
cation  software". 

The  above  plus  various  appendices,  diagrams  and  tables  should  pro¬ 
vide  the  reader  of  this  report  with  sufficient  information  to 
successfully  operate  and  modify  the  system  for  applications  other 
than  for  which  it  was  designed.  Additional  details  can  be  found 
in  the  references. 


SECTION  I  -  SYSTEM  LOGIC 


Introductory  Comments 

The  purpose  of  the  CTL  is,  of  course,  to  allow  the  NIC  to  talk  to 
other  computers  and/or  "intelligent"  instruments  using  the  GPIB 
standards.  Thus  through  CTL,  NIC  can  become  a  controiler/talker/ 
listener  and,  potentially  at  least,  can  partake  in  and  control 
all  of  the  interface  functions  which  collectively  define  the 
GPIB.  The  word  "potentially"  is  used  since  the  current  operating 
system  is  designed  to  support  only  some  portions  of  some  of  the 
interface  functions.  In  particular,  it  is  complete  in  so  far  as 
its  ability  to  talk  to  and  control  the  Hamamatsu  C1000  GPIB 
interface  M999-04. 

The  purpose  of  this  section  is  to  describe,  what  can  be  best 
called,  the  system  logic.  As  has  been  mentioned  elsewhere,  CTL 
itself  actually  consists  of  two  microcomputers:  a  Z-80  with 
associated  memory  and  firmware  (or  software)  and  the  Intel  chips 
set  consisting  of  one  8291,  one  8292  and  two  8293  LSI  chips 
(referred  to  as  the  8291-set).  The  8292  is  actually  an  8800  uP 
with  onboard  RAM  and  ROM  which  has  been  programmed  (by  Intel)  to 
perform  a  specific  set  of  functions.  The  8291  is  a  special  pur¬ 
pose  LSI  chip  which  acts  like  a  small  computer  while  the  8293 
provides  for  the  electrical  interface  between  the  bus  and  the 
other  chips,  along  with  a  small  amount  of  hardwired  logic. 

Thus  data  and  control  flow  is  from  NIC  to  Z-80  to  8291-set  to  the 
bus  and  whatever  is  on  the  other  end  of  the  bus.  Loosely  speak¬ 
ing,  NIC  initiates  all  actions  in  the  rest  of  the  system;  is  the 
ultimate  source  of  all  device  dependent  data  used  for  control  pur¬ 
poses  (specifically  here,  this  means  camera  control  data);  and  is 
the  ultimate  sink  of  all  device  dependent  data  from  other  talkers 
on  the  bus.  The  Z-80  is  used  mainly  to  monitor  the  activities  of 
the  8291-set,  to  pass  data  between  NIC  and  the  8291-set.  The 
8291-set  provides  for  all  of  the  GPIB  interface  functions  and,  in 
particular,  passes  device  dependent  data  between  the  Z-80  and  the 
bus. 

In  what  follows,  the  CTL  is  described  in  terms  of  the  NIC  "chip", 
the  Z-80  set  and  the  8291-set  where,  loosely  speaking,  the  NIC 
"chip"  consists  of  the  onboard  discrete  logic  which  performs  the 
digital  function  transformations  from  the  instruction  lines  (BIR, 
IOP,  etc.)  to  the  onboard  operations,  and  the  latches  and  I/O 
ports  associated  with  data  transfer  between  NIC  and  CTL.  The 
Z-80  set  consists  of  the  Z-80  uP  and  associated  memory  while  the 
8291-set  contains  the  8291,  8292,  (2)  8293  plus  a  port  for  obser¬ 
ving  the  task  complete,  TCI,  interrupt  (so  it  can  be  used  as  a 
flag  rather  than  an  interrupt).  The  following  simplified  logic 
diagram  (Figure  1.)  pertains  to  this  system  as  it  is  described 
below. 
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Note: 

BAC  =  buffered  accumulator  (8  bit  data  out  -  from  NIC). 

SAC  =  set  accumulator  (9  bit  data  in  -  into  NIC). 

BIR  =  buffered  instruction  register  (5  bit  data  from  NIC 
instruction  register). 

IOPt  =  IOPl,  IOP2,  I0P3  -  input/output  pulse  (approximately 
1  usee  apart). 

IOP  =  input/output  -  (0  signifies  an  i/o  instruction). 

SKIP  =  skip  next  instruction  (used  to  indicate  external 
device  is  not  ready). 


Figure  1.  -  CTL  System  Block  Diagram 


Since  the  Z-80  set  is  well  documented  elsewhere  (see  ref.  1),  it 
is  not  described  here  except  in  so  far  as  it  interacts  with  the 
other  two  main  blocks  of  the  system. 


The  NIC  "chip"  as  seen  from  NIC 

Looking  at  the  NIC  "chip"  from  the  NIC  computer,  there  is  the 

following: 

1)  An  8-bit  input  port  (address  40H)  which  allows  data  to  be  fed 
from  NIC  to  CTL  via  the  8  lowest  order  BAC  lines.  (Thus,  only 
the  8  lowest  order  bits  in  ACC  may  be  transferred  to  CTL.) 

2)  A  9-bit  output  port  (address  40H)  which  allows  data  to  be  fed 
from  CTL  to  NIC  via  the  9  lowest  order  SAC  lines.  The  8 
lowest  order  bits  represents  data  coming  from  the  Z-80  uP 
while  the  9th  bit  can  be  set  (or  reset)  by  the  Z-80  through  a 
control  register  described  below.  This  bit  is  called  the 
"service"  (SRVC)  bit. 

3)  A  9-bit  "command"  port  through  which  i/o  instructions  from  the 
NIC  may  be  decoded.  The  commands  are  fed  from  the  NIC  instruc¬ 
tion  register  to  CTL  via  the  BIR(3-7)  lines,  IOPl  ,  IOP2,  IOP3 , 
and  IOP.  See  Table  1  for  the  list  of  instructions,  the  accep¬ 
ted  mnemonics  and  a  summary  of  their  use. 

These  lines  are  used  as  follows: 

BIR4-7  and  IOP  -  device  select  (select  NIC  "chip"). 

BIR3  and  IOPl, 2, 3  -  provide  8  commands  to  the  NIC  "chip". 

IOPl,  2  and  3  act  as  read  or  write 
pulses.  They  are  sent  1  micro-second 
apart  during  the  time  NIC  is  ready  to 
send  or  receive  data. 

4)  A  SKIP  output.  When  SKIP  is  set,  instructions  which  have  the 
skip  bit  set  (e.g.,  CTLSK)  will  skip  the  next  instruction. 

Thus  a  typical  instruction  sequence  is: 

CTLSK  /  TEST  SKIP 

JMP  $-1  /  TEST  AGAIN  IF  NOT  SET 

CTLRDC  /  READ  THE  DATA 


1  !  SKIP  I  0  IICP I  OS;  OS  |  OS 


44064  READ  CTL,S 


4062  I  CLEAR 

iBUSY/DOt« 


CTLWR 

CTLSK  1 

4066  READ,  CTL, 
SRVC ,  CLEAR 

4072  ,  WRITE  CTL 


10  0 


0  [  0  i  0  |  1  |  1  j  1  |  |  I  |  4072 | RESET 


"clears  ACC  and  reads  9  bit  data  from  the  "chip"  into  ACC. 
( 10P1  is  the  RD  pjlse.  The  9th  bit  is  "service".) 


Clears  BUSY/DONE  flaqs.  (Using  the  IOP2  pulse.) 

CTLRDC 

Logical  OR  o£  CTLRD  and  CTLCF.  Used  for  normal  read  since 
clearing  the  flags  indicates  that  the  data  port  is  ready  to 
receive  more  data  from  the  Z-80. 


Sends  8  bit  data  from  ACC  to  the  chip,  sets  BUS Y  and  clears 
DONE.  (Uses  the  I0P3  pulse.) 

K 

Loads  the  state  of  the  DONE  latch  (does  not  change  it)  onto 
the  SKIP  line.  If  set,  the  next  NIC  instruction  is  skipped 


Reset:  clears  CTRLO  latches  (see  below),  clear  BUSY  and 

DONE,  reset  pulse  to  8291-set  and  Z-80. 


Table  1.  -  NIC  -  CTL  Instruction  Set 


The  NIC  "chip"  as  seen  from  the  2-80 

Looking  at  the  NIC  "chip"  from  the  Z-80  uP,  there  is  the 

following : 

1)  NICP  (address  40H)  -  the  8  bit  data  i/o  port  for  transfering 
data  from  the  NIC  chip  to  and  from  the  Z-80.  Input  data  to 
this  port  is  put  on  the  8  lowest  order  SAC  lines  to  the  NIC 
while  data  from  the  BAC  lines  are  fed  to  this  port  for  output 
to  the  Z-80.  In  addition,  a  write  to  NICP  sets  the  DONE  latch 
and  resets  the  BUSY  latch. 

2)  CTRLO  (address  80H)  -  a  4-bit  register  (bits  0-3)  which  may  be 
written  to  in  order  to  set  or  reset  various  latches  within  the 
NIC  "chip".  This  register  is  diagramed  and  described  in  Table 
2  (note  that  it  is  shown  as  an  8-bit  register  with  4  "don't 
care"  bits  denoted  by  X). 

3)  CTRLI  (address  80H)  -  an  8  bit  status  register  which  may  be 
monitored  by  the  Z-80  to  determine  the  state  of  the  NIC 
"chip".  See  Table  3. 

4)  WAIT  "pin"  -  this  "pin"  is  attached  to  the  Z-80  wait  pin  and 
is  used  to  put  the  Z-80  into  a  wait  state.  See  DNEWT  and 
DMAWT. 

5)  BUSY  "pin"  -  this  "pin"  is  attached  to  the  Tht  pin  of  the 
Z-80.  when  BUSY  is  set,  then  BETSY  is  active  low  causing  a 
Z-80  interrupt  if  Z-80  interrupt  has  been  software  enabled. 

6)  INT  "pin"  -  this  "pin"  is  attached  to  the  interrupt  pin  of  the 
8291  and  as  such  is  used  merely  to  monitor  the  status  of  the 
8291  interrupt  output. 


7)  RESET  "pin"  -  this  "pin"  is  attached  to  the  Z-80  reset  input 
and  when  active  low  causes  the  Z-80  to  be  reset.  It  is  also 
attached  to  reset  of  the  8291-set  (actually  8292  reset) . 

8)  RESET  "pin"  -  this  "pin"  is  attached  to  the  reset  pin  of  the 
8291-set  (actually  the  reset  input  of  the  8291). 

9)  SYC  "pin"  -  this  "pin"  is  attached  to  the  8291-set  system 
control  (SYC)  input.  It  actually  goes  to  the  first  switch  in 
the  DIP  set  which  includes  the  address  switches.  When  this 
switch  (switch  1  in  the  DIP  set)  is  off,  the  CTL  is  the  GPIB 
controller  in  charge  of  the  bus. 


10)  I/O  control  input  "pins"  -  IORQ,  RD,  WR  input  attached  to  the 
corresponding  Z-80  system  control  output  pins. 
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«» 


X 

X 

X 

DMAWTj 

X 

[dnecl] 

SRVC 

DNEWT 

DMAWT  -  When  set,  the  WAIT  pin  on  the  NIC  "chip"  is  sent 
(DMA-WAIT)  active  low  unless  the  DREQ  input  to  the  "chip"  is 
active  high.  Since  WAIT  is  connected  to  the  Z-80 
wait  input  and  DREQ  is  connected  to  the  8291  DREQ 
output,  setting  DMAWT  enables  the  transfer  of  data 
between  the  8291  and  the  Z-80  memory  in  a  "DMA 
mode".  This  is  described  in  more  detail  in  the 
section  on  the  8291-set. 


DMAWT  is  reset  by  outputting  bit 4=0  to  the  CTRLO 
register  or  by  the  CTLRS  command  from  NIC. 

DNECL  -  This  bit  is  used  to  reset  (clear)  the  DONE  latch 
(DONE  CLEAR)  (see  below).  This  reset  occurs  whenever  a  write  to 
CTRLO  is  done  with  DNECL=1 . 


SRVC 

(SERVICE) 


The  state  of  the  "service"  line  (the  9th  bit)  to 
NIC  is  determined  by  this  bit.  It  is  latched  to  1 
as  long  as  SRVC  is  1  and  to  0  otherwise. 


DNEWT 

(DONE  WAIT) 


When  set,  the  WAIT  pin  on  the  NIC  "chip"  is  sent 
active  low  as  long  as  DONE  is  set.  Since  WAIT  is 
connected  to  the  Z-80  wait  input,  this  means  that 
the  Z-80  is  in  a  wait  state  as  long  as  DONE  is 
latched  on  (set).  It  is  taken  out  of  this  wait 
state  (DONE  is  reset)  by  issuing  a  CTLCF ,  CTLRDC, 
CTLWR  or  CTLRS. 


DNEWT  can  be  reset  by  writing  to  CTRLO  with  DNEWT=0 
or  by  issuing  a  CTLRS  from  NIC. 


Table  2.  -  CTRLO  Register 
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INT  -  Status  of  the  8291  interrupt  line.  Set  to  1  when  the 
8291  is  issuing  an  interrupt  reauest  to  the  Z-80. 

BUSY  -  Status  of  the  BUSY  latch.  (1  means  BUSY  is  set.) 

DONE  -  Status  of  the  DONE  latch.  (1  means  DONE  is  set.) 

AD4-AD0  -  Status  of  the  5  address  switches  in  the  NIC  "chip". 

These  switches  can  be  used  to  set  the  CTL  talker- 
listener  primary  address  if  desired.  Switch  on  is  a 
logic  0. 


Table  3.  -  The  CTRLI  Register 


Protocol 


The  main  function  of  the  NIC  "chip"  is  to  provide  for  the  asyn¬ 
chronous  flow  of  data  in  bit  parallel,  byte  serial  form  between 
NIC  and  the  2-80. 

This  is  accomplished  mainly  through  the  use  of  the  BUSY  and  DONE 
latches.  Table  4  summarizes  how  these  latches  (and  others)  are 
influenced  by  actions  of  NIC  and  of  the  Z-80  uP.  Below  are  some 
examples  of  typical  software  segments  which  can  be  used  to  imple¬ 
ment  this  asynchronous  communications.  First,  however,  we  note 
how  NIC  and  2-80,  respectively,  observe  and  control  these  two 
latches: 


DONE  1 
CTRLI 
bit  5 

BUST 
CTRLI 
Sit  6 

3291 
CTRLI 
bit  7 

ONEWT 
CTRLD 
bit  0 

SRVC  |  DNECL  j  QMAMT 
CTRIO  j  CTRLD  !  CTRLO 
bit  1  i  bit  2  •  bit  4 

NICP  {  Z80 
j  I  NT 

CTLRD 

READ  | 

READ  i 

CTLCP 

CLEAR 

CLEAR 

j  i 

|  j 

i  CLEAR 

i 

CTLRDC 

CLEAR 

CLEAR 

READ  j 

READ  !  CLEAR 

CTLWR 

CLEAR 

SET 

:  1 

:  i 

WRITE  SET 

CTLSK 

'  TONE 
SK?P 

! 

CTL3S 

CLEAR 

CLEAR 

orp 

OPP  j  OPP  ,  OFF 

i  i 

CLEAR 

OUT  (40)  ,A 

SET 

CLEAR 

i  ; 

WRITE  CLEAR  ! 

OUT  (80) ,b2*l 

CLEAR 

i  ! 

!  ! 

OUT  (80)fbX-l 

SET  f 

! 

OUT  (80) ,ol»0 

CLEAR 

J 

OUT  (80)  ,b4»l 

-  - 

&  SB  WAIT 

LATCH  TO 

8291  OREQ 

OUT  (80)  ,b4-0 

DISCON¬ 

NECT 

_ 1 _ 

. 

OUT  (80) ,b0-l 

Z 80  WAIT] 
LATCH  TO 
j  DONE 

i  1 

OUT  (80),b0-0 

n°&C0N- 

1  I 

;  « 

IN  A,  (80) 

REAO 

READ 

READ 

1  I  ! 

IN  A,  (40) 

_ 

j  READ  |  j 

Table  4. 


The  action  of  NIC  and  Z-80  instructions 
on  various  "control"  bits. 
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BUSY  -  set  by  NIC  with  CTLWR 

reset  by  NIC  with  CTLCF,  CTLRDC,  CTLRS 
reset  by  2-80  with  OUT  (40)  ,A 
read  by  2-80  with  IN  A,  (80) 

DONE  -  set  by  2-80  with  OUT  (40)  ,A 

reset  by  2-80  with  OUT  (80)  ,A  (bit  2»1) 

reset  by  NIC  with  CTLWR,  CTLRDC,  CTLCF,  CTLRST 

read  by  NIC  with  CTLSK  (causes  an  instruction  skip  if 

DONE  is  set) 


NIC  — >  2-80 


Consider  the  transfer  of  two  data  bytes  from  NIC  to  the  2-80. 
Assume  that  initially  both  DONE  and  BUSY  are  reset  and  that  the 
2-80  is  waiting  in  a  i-’op  for  data  from  NIC. 


DONE 


BUSY 

1 

III  1 

tl  t2  t3  t4  t5 


The  following  code  implements  the 
NIC 

mtom  count  /set  counter 
NEXT,  MEMA  0POINT  /to  -2 
CTLWR 
CTLSK 
JHP  #-l 
MPOM  POINT 
JMP  NEXT 
CTLCF 


t\  BUSY  set  with  CTLWR  (first 
data  byte  from  ACC  ready) 

t2  DONE  set  and  BUSY  reset 

with  OUT  (40)  ,a  (first  data 
byte  in  the  Z-80) 

t3  BUSY  set  and  DONE  cleared 
with  CTLWR  (second  data 
byte  from  ACC  ready) 

t4  DONE  set  and  BUSY  reset 
with  OUT  (40), A  (second 
byte  in  the  2-80) 

t5  DONE  reset  with  CTLCF. 
above  sequence. 

CTL 

LD  C, 40H 

LD  B,2 

;LD  A , DNEWT 
jOUT  ( 80H )  , A 
CTl  IN  A,  (8  0H  ) 

BIT  BUSY, A 
JR  2, CTl 

CT2  INI 

OUT  ( 40H )  , A 
DJNZ  CTl 
;  XOR  A 


;  (or  CT2  if  DNEWT  set 


Another  way  of  implementing  the  transfer  of  data  from  NIC  to  CTL, 
particularly  if  large  blocks  of  data  are  to  be  sent,  is  to  set 
the  DNEWT  bit  which  in  turn  ties  the  Z-80  WAIT  pin  to  the  DONE 
latch.  Since  DONE  is  cleared  at  the  same  time  as  BUSY  is  set  by 
the  CTLWR  instruction,  it  is  possible  to  jump  to  CT2  without 
checking  for  BUSY  (except  for  the  first  byte).  This  variant  is 
indicated  by  commented  instructions  in  the  CTL.  program. 

2-80  — >  NIC 

Next  consider  the  transfer  of  two  data  bytes  from  the  2-80  to  the 
NIC.  Again  it  is  assumed  that  initially  both  DONE  and  BUSY  are 
reset.  Now,  however,  NIC  is  waiting  in  a  loop  for  the  Z-80  to 
start  sending  the  data. 

t3  DONE  set  with  OUT  (40), A 
(first  data  byte  from  Z-80 
is  ready)  . 

t2  DONE  reset  with  CTLRDC. 

(first  data  byte  into  ACC). 

t3  DONE  set  with  OUT  (40), A 
(second  data  byte  from  Z-80 
is  ready ) . 

t4  DONE  reset  with  CTLRDC 
(second  byte  into  ACC). 

As  in  the  previous  case,  it  is  possible  to  simplify  the  Z-80  code 
by  using  DNEWT.  The  code  below  shows  this  without  and  with  DNEWT 
set. 

NIC  CTL  (without  DNEWT) 

LD  C,  40H 
LD  B,2 

IN  A,  (80H )  jwait  for  last 

BIT  DONE  ;  byte  to  "clear" 

JR  NZ,CT1 
OUTI 

DJNZ  CT1 

CTL  (with  DNEWT ) * 

U>  C,40H 
LD  B,  2 
LD  A,  DNEWT 

OUTI  jsend  first  data  byte 

OUT  ( 80H )  ,A  J  set  DNEWT 
OTIR  jsend  next  data  byte 

XOR  A  j reset  DNEWT 

OUT  ( 80H )  ,  A 
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MTOM  COUNT 

NEXT,  CTLSK  /wait  for  next 

JMP  #-l  /byte  CT1 

CTLRDC  /read  i  reset  DONE 

ACCM  @ POINT 

MPOM  POINT 

MPOMZ  COUNT 

JMP  NEXT 


*Note  that  DNEWT  cannot  be  set  until  the  first  byte  is  sent  out 
since  otherwise  nothing  will  get  transferred. 

DONE  is  normally  used  (set)  to  indicate  that  the  Z-80  is  ready  ( 
byte  has  been  sent  or  received) .  It  can  be  used  otherwise  how¬ 
ever,  since  the  Z-80  can  both  set  and  reset  DONE.  (Reset  is 
accomplished  with  OUT  (80H)  ,A  with  bit  2  set  to  1.) 

The  SRVC  status  bit  (bit  1  of  CTRLO)  can  be  used  to  indicate  a 
special  condition  within  the  CTL  (caused,  for  example,  by  an 
abnormal  condition  of  the  GPIB)  .  This  status  bit  is  read  by  NIC 
as  the  9th  bit  in  ACC  after  reading  the  NIC  I/O  port  (40H). 

The  use  of  the  other  latch  bit,  DMAWT,  is  discussed  further  in  a 
later  section  after  the  8291-set  has  been  described. 


8291-set 


Introductory  Comments 

The  8291-set  consists  of  the  following: 

Intel  8291  GPIB  Talker/Listener 

Intel  8292  GPIB  Controller 

2  Intel  8293  GPIB  Transceivers 

A  Status  Port 

Associated  circuitry  and  minor  hardware  to  tie  every¬ 
thing  together. 

The  intra-set  configuration  *s  in  Figure  2. 
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This  set  provides  for  the  complex  transfer  of  data  between  the 
Z -80  uP  and  the  GPIB.  It  essentially  implements  all  of  the 
interface  functions  as  specified  in  the  IEEE  488-GPIB  standards. 
The  829l-set  is  best  comprehended  by  "observing"  its  performance, 
in  conjunction  with  the  controlling  uP,  while  carrying  out  a 
typical  GPIB  task.  By  extrapolation  it  should  then  be  a  rela¬ 
tively  simple  procedure  to  use  the  8291-set  for  any  legitimate 
GPIB  task.  This  performance  observation  (or  task  walk-through) 
is  set  forth  rather  exhaustively  in  the  sub-section  on  "request 
for  service"  walk-through.  There  are  several  sub-sections  lead¬ 
ing  up  to  this  walk-through  which  serve  both  for  reference  and 
for  description  of  the  8291-set.  The  reader  is  advised  to  merely 
glance  through  the  sections  on  system  description  and  interaction 
with  the  uP  and  to  concentrate  more  on  the  operation  sections. 

System  Description 

In  the  following  system  description  the  various  ports  and  regis¬ 
ters  of  the  8291-set  are  described.  In  addition,  some  detail  is 
given  on  how  these  ports,  and  registers  may  be  used  and  certain 
precautions  which  must  be  made  in  accessing  them  (timing  consi¬ 
derations,  etc.).  Before  doing  so,  several  points  should  be 
made. 

(1)  The  8291  may  be  used  alone  as  a  talker/listener.  Here, 
however,  since  the  CTL  has  GPIB  controller  capabilities 
with  the  help  of  the  8292,  we  prefer  to  look  at  the  chip 
set  as  a  single  entity  although  parenthetically  note  is 
made  of  which  port  or  register,  etc.  is  associated  with 
which  chip.  The  8293's  are  passive  devices  with  little 
onboard  "intelligence",  i.e.,  they  act  mainly  as  an 
electrical  interface  as  opposed  to  a  "logical"  interface. 

(2)  Both  the  8291  and  8292  have  "hidden"  or  "indirect"  regis¬ 
ters  which  may  not  be  interfaced  directly  (with  a  simple  IN 
(port)  or  OUT  (port)).  We  choose  to  label  them  by  the  bit 
patterns  used  to  access  them,  as  well  as  by  the  names 
chosen  for  them  by  Intel. 

(3)  Although  Intel  uses  the  term  “register"  for  all  of  the 
"doors  and  windows"  used  for  data  transfer  and  status  obser¬ 
vation,  we  choose  to  classify  them  as  ports,  registers  and 
memory  according  to  primary  usage.  The  term  "register"  is 
used  below  with  a  capital  R  when  we  wish  to  talk  of  the 
ports,  registers  and  memory  collectively.  Thus  ports  are 
used  primarily  to  transfer  random  data  or  specific  command 
data  between  the  Z-80  uP  and  the  8291-set;  registers  are 
primarily  used  to  indicate  the  status  (or  state)  of  the 
8291-set  or  the  GPIB  while  memory  is  used  primarily  to  hold 
configuration  bytes  within  the  8291-set,  i.e.,  to  configure 
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the  8291-set  with  various  multi  bit  pieces  of  information. 
Note  that  some  Registers  are  multi-purpose  but  are  listed 
under  only  one  category. 

Below,  all  Registers  are  listed  with  the  following  infor¬ 
mation: 


name 

function 

abbreviation 

symbol 

(n) 

protocol 

symbol 

contents  with 
bit  labels 

multi-bit  des- 
cr iption 


usually  as  assigned  by  Intel, 
a  brief  description  of  the  function  of 
the  Register. 

for  use  with  Table  5  which  describes 
the  purpose  of  all  single  bits, 
where  n=l  indicates  8291  Register  and 
n=2  indicates  8292  Register. 

see  the  section  on  Register  protocol. 

the  single  bit  contents  are  described 
in  Table  5. 

(for  example,  data  byte) 


ports 

Data-in  -  moves  data  from  the  GPIB  to  the  Z-80. 
DI  (1)  TIMl 


I  017  1 

DI6 

DI5 

DI4 

DI  3 

DI2 

Dll 

DI0 

DI0  — >  DI7  is  datum. 


Data-out  -  moves  data  from  the  Z-80  to  the  GPIB. 
DO  (1)  TIM2 


DO  7 

DO  6 

DO  5 

DO  4 

DO  3 

D02 

D01 

DO0 

DO0  — >  D07  is  datum. 


Command  Bass-through  -  passes  "undefined"  multi-line  interface 

messagei  and  secondary  addresses  from  the  GPIB  to  the 
Z-80  set. 


CP  (1)  EV1  (CPT) 


CPT7  CPT6  C PT5  CPT4  CPT3  CPT2  CPTl  CPT0 
CPT0  ->  CPT7  is  "command"  datum. 


mode  ~  passes  "mode  data"  and  "commands"  from  the  2-80 
iet  to  the  8291-set  (specifically  to  the  8291).  This 
is  a  multi-purpose  register. 

AM  (1)  DIR 

CNT2  CNTl  CNT0  COM4  COM3  COM2  COMl  COM0 

COM0  — >  COM4  is  internal  command  datum. 

CNT0  — >  CNT2  is  register  control  datum. 

Command  field  -  passes  commands  from  the  Z-80  set  to  the  8291-set 
7 specif ically  to  the  8292). 


CF  (2)  TIM3 


OP  C3  C2  Cl  C0 


C0  ->  C3  is  internal  or  external  command  datum. 


-  passes  addresses  and  address  "function"  bits  to  the 
8291-set.  (This  data  is  stored  in  the  memory  "regis¬ 
ters"  Address  0  or  Address  1.  Bit  RS ,DT ,DL  are  state 
SET  BITS.) 

A01  (1)  DIR 

ARS  DT  DL  AD  5  AD4  AD  3  AD2  ADI 
ADI  — >  ADS  is  address  datum. 
registers  (state  set) 

Interrupt  enable  1  -  enable  interrupts. 

IE1  (1)  DIR 

CPT  APT  GET  END  DEC  ERR  I  80  I  BI 


I nter r ugt  enable  2  -  enable  interrupts. 

IE2  (1)  DIR 

0  0  DMAO  DMA I  SPASC  LLOC  REMC  ADSC 


Serial  poll  mode  -  enable  request  service  (also  holds  serial  poll 
status  bits). 

SP  (1)  SPEC1 


S8 

rsv 

S6 

1  S5 

1  S4  1 

lS3  1 

S2 

HD 

SI  — >  S6  plus  S8  is  serial  poll  st3tus  datum. 

Address  mode  -  selects  addressing  mode. 

AM  (1)  DIR 


|  TO 

LO 

0 

0 

0 

0 

ADMl 

ADM0 

ADM0  ->  ADMl  is  address  mode  datum. 


Auxiliary  register  A  -  selects  handshake  and  EOS  modes. 
AA  (1)  IDIR1  (Auxiliary  mode) 


A4  |  A3  ]a2  I  ftj 


A0  ->  A4  is  state-set  datum. 


Auxiliary  register  B  -  select  special  features. 
AB  (1)  IDIR1  (Auxiliary  mode) 


nr 

* 

x 

B3 

b2 

B 1 

Bg 

B0  — >  B3  is  state-set  datum. 


Auxiliary  register  P  -  set  parallel  protocol  and  action. 
AP  (1)  IDIR1  (Auxiliary  mode) 


nr 

x 

x  u 

s _ 

p3 

p2 

in 

Pi  ->  P3  are  parallel  poll  "address"  datum. 


Interrupt  mask  -  enable  interrupts. 
IM  (2)  DIR 


r> 

SPI 

TCI 

SYC 

OBFI 

IBFI 

SRQ 
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Err or  mask  -  enable  error  interrupts. 
EM  (2)  DIR 


0 

USER 

0 

0 

T0UT3 

T0UT2 

TOUTl 

Interrupt  acknowledge  ~  reset  certain  interrupt  status  bits. 
IA  (2)  IDIR2 


registers  (state  observe) 


Interrupt  status  1  -  (corresponds  to  Interrupt  enable  1.  Note 

that  status  bits  are  set  regardless  of  which 
interrupts  are  masked.) 

IS1  (1)  DIR 


[ 

CPT 

APT  1 

isi  El  1 

DEC  ERR  BO 

HD 

Interrupt 

IS2  (1) 

status  2  -  (bits  0  to  3  correspond  to  Interrupt  enable 

2.) 

DIR 

I  NT 

JSPAS 

LLO  REM 

SPASC  LLOC 

REMC  ADSC 

Ser ial  poll  stat us_  -  (corresponds  to  Serial  poll  mode.) 
SP  (1)  EV2 

|S8  |  SRQS  |s 6  [s5  Js4  Js3  |s2~]sl~~] 

Address  status  -  monitors  address  state  and  EOI. 

AS  (1)  DIR 


ton 

Ion 

EOI 

LPAS 

TPAS 

LA 

TA 

MJMN 

§£§£y§  ~  controller,  error,  SRQ,  etc.  status. 

IS  (2)  DIR  (SPI  reset  by  IDIR2) 


SYC 

ERR 

SRQ 

EV 

mm 

IFCR 

IBF 

OBF 

SPI 
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Error  flag  ( E4 ) 
EF  (2)  IDIR4 


(corresponds  to  Error  mask.) 


USER 


TOUT 3  TOUT2  TOUTJ 


Controller  status  ( E6)  -  controller  function  state. 
CS  (2)  IDIR4 


CSBS 

CA 

X 

SYCS 

IFC 

REN 

SRQ 

GPIB  status  ( E 7)  -  bus  status. 
GS  (2)  IDIR4 


REN 

DAV 

EOI 

X 

SYC 

IFC 

ATNI 

SRQ 

Event  counter  status  (E3)  -  contains  current  value  of  the  event 

counter. 

ES  (2)  IDIR4 


J" 

D5 

D4 

D3 

“J 

Dl  D0 

D0  — >  D7  is  datum. 


Time  out  status  (E9)  -  contains  current  value  of  the  time  out 

counter. 


TS  (2)  IDIR4 


|D7 

D6 

05 

D4 

D3 

D2 

01 

D0 

00  — >  D7  is  datum. 


TCI  status  -  more  interrupt  status  flags.  Used  mainly  to  observe 
TCI. 

TCS  (2)  DIR 


LlJ 

I0  1 

DREQ 

IBFI 

OBFI 

1  SPI  1 

|tci  | 

(Note  that  this  is  an  "external"  register  not  part  of 
the  8292  and  is  provided  mainly  to  provide  TCI  status.) 


m  em  o  r  y 

EOS  -  hold  an  EOS  byte. 
EO  ( 1 )  DIR 


EC7 

EC  6 

EC  5 

EC4 

EC  3 

EC  2 

EC1 

EC0 

EC0  — >  EC 7  is  datum. 


Address  0  -  holds  device  primary  address  (mode  2)  or  device 

"major"  address  (mode  1).  (Note  that  this  memory 
register  also  holds  the  disable  talker/listener  bits 
passed  by  the  Address  0/1  port.) 

A0  (1)  IDIR1  (Address  mode) 


X 

DT0 

DL0 

AD  5-0 

AD4-0  J 

AD3-0 

AD2-0 

ADl-0 

ADl-0  — >  AD5-0  is  address  datum. 


Address  1  -  holds  device  secondary  address  (mode  2)  or  device 
"minor"  address  (mode  1). 

Al  (1)  IDIR1  (Address  mode) 


DTI 

DLl 

AD5-1 

AD4-1 

AD  3-1 

AD2-1 

ADl-1 

ADl-1  — >  AD5-1  is  address  datum. 


Event  counter  (E2)  -  holds  count  down  from  value  for  the  event 

counter. 

EC  (2)  IDIR3 


L _£Z_ 

D6 

D5 

D4 

D3 

D2 

Dl 

D0 

D0  — >  D7  is  datum. 


Time-out  (El)  -  holds  time  to  be  used  (count  down  from)  for  the 
various  time  out  errors  (TOOT  1,2,3). 


TO  (2)  IDIR3 


1  07  1 

D6 

D5 

1  04 

1  03  1 

1  02  1 

1  01  1 

D0 

D0  — >  D7  is  datum. 
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Summarizing  the  Register  "structure"  of  the  8291-set,  there  are: 

6  ports  which  may  be  used  to  pass  commands  to  the  8291- 
set  or  data  to  and  from  the  8291-set. 

10  state  set  registers. 

11  status  (observe)  registers  (note  1) 

5  memory  Registers. 

Note  1:  There  is  a  total  of  54  status  bits  which  may  be 
observed  to  determine  the  state  of  the  8"39T-set  and  its 
associated  GPIB.  It  should  be  noted  that  some  of  the  status 
registers  are  used  to  hold  multi-bit  data  (e.g.,  the  serial 
poll  register)  in  addition  to  status  bits;  this  multi-bit 
data  is  not  counted  as  status.  It  also  should  be  noted  that 
some  of  this  status  information  is  redundant. 


•  \ 
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SYCS  CS  1-228  1=>  System  control  interface  function  is  in  System  Control  Active  State  (SACS).  (Determined  tv  SYC  switch. 

IPC  CS  1-228  1=>  Interface  Clear  message  is  being  sent. 

REN  CS  1-228  1=>  The  Ranote  Enable  message  (REN)  is  being  sent. 

SRO  CS  1-228  1«>  The  SRQ  line  is  active.  (Controller  function  Controller  Service  Requested  State,  CSRS) . 

REN  GS  1-228  1«>  The  REN  line  is  active. 
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Table  5.  -  8291-set  Status  Bit  Table  (continued 
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The  8291-set  is  obviously  a  complex  device  and  many  of  its  fea¬ 
tures  are  not  used  by  the  CTL.  Tor  example,  the  8291-set  has 
several  interrupts  which  can  be  used  but  in  CTL  no  interrupts  are 
used,  rather,  status  bits  are  observed  and  appropriate  action 
taken.  Thus,  in  what  follows,  the  description  ct  the  interaction 
between  the  Z-80-set  and  8291-set  is  based  on  what  is  actually 
done  within  the  CTL  which  in  turn  is  partly  based  on  the  parti¬ 
cular  application  fo  which  the  CTL  was  constructed. 

This  description  is  based  on  information  in  reference  2  and,  in 
particular,  the  Data  sheet  section  on  the  8291  and  8292  and  the 
Application  Notes  section  "Using  the  8292  GPIB  Controller". 

General  observations 

1)  Many  of  the  Registers  are  indirect  ones,  i.e.,  are  not  acces¬ 
sible  by  a  single  read  or  write  (IN  or  OUT  in  Z-80  memories). 
For  example,  the  majority  of  the  8292  status  registers  are 
read  using  "utility  commands"  which  in  turn  require  the 
checking  of  status  bits  while  being  used  to  get  the  desired 
status  bits.  In  other  words,  a  certain  protocol  is  reauired. 
The  first  section  describes  the  different  protocols  used  along 
with  some  timing  consideration  which  must  be  observed. 

2)  The  Z-80  "sees"  the  GPIB  only  via  the  8291-set.  Within  this 
set,  the  8291  itself  is  used  to  implement  all  of  the  Interface 
Functions  (as  specified  in  the  IEEE-488  standards)  with  the 
exception  of  the  C  (Controller)  Interface  Function  (CIF). 
Moreover,  the  8291  is  used  to  handle  all  multi  line  messages 
even  for  messages  which  are  to  be  used  only  by  the  CIF.  Thus, 
the  "logic"  of  the  8291-set  reflects  this  division  of  labor 
and  the  commands  sent  from  the  Z-80  set  to  the  8291-set  must 
be  such  that  the  8291  is  put  in  the  right  state  relative  to 
the  8292.  In  other  words,  there  is  a  subtle  interplay  between 
Interface  states  (as  defined  by  the  standard)  and  the  actual 
states  of  the  8291  and  8292. 

3)  While  the  8291-set  has  been  designed  to  implement  all  of  the 
Interface  Functions,  the  user  often  has  the  choice  of  having 
the  Z-80  set  do  much  of  the  work.  Within  CTL  the  Z-80  set 
acts  only  as  the  source  and  sink  of  some  of  the  local  messages 
(and  thus  controls  the  overall  sequence  of  events  on  the  bus) 
and  lets  the  8291-set  do  all  of  the  actual  interfacing.  Of 
course,  the  Z-80  set  must  also  take  approriate  action  under 
various  bus  error  conditions. 


Register  protocol 


As  mentioned  above,  various  Register  observe  different  protocols 
in  their  accessibility.  We  classify  these  protocols  as  direct 
(DIR),  timed  (TIM),  indirect  (IDIR)  and  special  (SPEC). 

Direct 


These  Registers  receive  or  return  information  after  a  single  IN 
or  OUT  instruction  of  the  Z-80.  Most  of  the  8291  status  and 
state  registers  can  be  read  or  written  directly.  The  8292 
Interrupt  Status,  Interrupt  Mask  and  Error  Mask  Registers  are 
also  direct. 

Timed 


Several  of  the  Registers  require  varying  amounts  of  time  to 
elapse  before  the  data  in  or  out  is  valid  or  before  a  command  has 
been  executed.  There  are  3  sub-categories  of  time  Registers, 
classified  according  to  the  status  bits  which  must  be  observed 
for  successful  completion. 

TIM1 


These  Registers  use  the  BI  status  bit  of  the  Interrupt  status, 
register,  when  BI  is  set,  data  in  a  TIMl  register  is  valid. 
The  BI  status  bit  is  reset  after  a  read  of  the  Interrupt 
status  1  register,  a  read  of  the  TIMl  register  or  by  a  pon 
local  message. 

TIM2 


These  Registers  use  the  BO  status  bit  of  the  Interrupt  status 
1  register,  when  BO  is  set  the  corresponding  Register  is 
ready  to  output  more  data.  The  BO  status  bit  is  reset  after  a 
read  of  the  Interrupt  status  1  register,  a  write  to  the  TIM2 
register,  by  the  assertion  of  ATN  or  by  TACS.  (Note  that  in 
tne  CTL  configuration  the  8291  never  sees  ATN.) 

Note: 

The  TIMl  and  TIM2  Registers  are  used  to  receive  and  send, 
respectively,  multi-line  messages  on  the  GPIB.  If,  for  some 
reason,  the  devices  on  the  bus  do  not  respond  correctly  (e.g., 
are  not  turned  on  or  are  not  attached),  then  the  status  bits 
will  never  be  set. 
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TIM3 


These  Registers  use  the  IBF  bit  of  the  InterruDt  status  regis¬ 
ter.  When  this  bit  is  set,  the  TIM3  Register  is  not  ready  to 
receive  data  from  the  Z-80  set.  It  is  reset  whenever  the  8292 
has  accepted  data  sent  to  it  from  the  Z-80.  It  is  also  reset 
by  either  an  external  reset  (e.g.,  CTLRS ) ,  pun  local  message 
or  by  the  RST  command.  The  standard  procedure  for  TIM3 
registers  is  to  first  wait  until  IBF  is  reset,  write  to  the 
Register  (usually  part  of  accessing  an  indirect  register)  and 
then  wait  for  IBF  to  reset. 

Note  that  there  is  no  corresponding  Register  for  output  which 
uses  the  OBF  bit  since  output  from  the  8292  is  via  the  indirect 
registers  which  require  the  use  of  the  TCI  status  bit. 

Indirect 


The  indirect  registers  require  more  than  a  simple  read/write  or 
read/write  and  wait  for  a  status  bit.  They  require  the  use  of  an 
auxiliary  register  and  in  some  cases  a  completion  siqnal.  There 
are  4  sub-categories  of  indirect  registers  depending  on  the 
actual  code  used  to  access  them. 

IDIR1 


This  is  the  simplest  type  of  indirect  Register.  It  is  only 
necessary  to  write  to  the  "intermediate"  register.  For  exam¬ 
ple,  the  Address  0  and  Address  1  registers  are  written  to  via 
the  Address  mode  register.  Auxiliary  register  A,  Auxiliary 
register  B  and  Auxiliary  register  P  are  written  to  via  the 
Auxiliary  mode  register.  No  status  bits  are  checked. 

IDIR2 

The  IDIR2  Registers  are  those  which  use  IACK  (interrupt  acknow¬ 
ledge  command)  to  "write"  to  them  (actually  reset  interrupts) 
via  the  Command  field  register.  The  status  bit  used  is  SPI  in 
the  TCI  status  register  to  indicate  that  the  SPI  status  bits 
have  been  reset.  These  (Special  Interrupt)  bits  are  SYC,  ERR, 
SRQ,  EV  and  IFCR  in  the  Interrupt  status  register.  It  should 
be  noted,  however,  that  if  the  interrupt  conditions  (any  of 
them)  persist,  that  SPI  will  be  set  again  after  a  short  period 
of  time.  Also  note  that  the  IACK  command  itself  is  given  via 
the  Command  field  register  which  is  a  TIM3  type  register. 


IDIR3 


These  registers  are  the  indirect  write-to  registers  of  the 
3292  and  include  the  Event  counter  (E2)  and  Time  out  (El) 
memory  Registers.  These  are  written  to  by  first  writing  E2  or 
E4  via  the  Command  field  register  and  immediately  writing  the 
desired  data  to  the  indirect  register.  Note  that  it  is  not 
necessary  to  check  IBF  between  these  two  writes,  only  after 
the  last  one. 

The  Command  field  register  has  the  address-0  line  (A0)  set  to 
1  while  all  the  indirect  registers  are  written  to  or  read  with 
Ao=0.  It  is  somewhat  a  question  of  semantics  as  to  whether 
one  should  consider  that  a  "Data  field"  (in/out)  register  is 
used  to  pass  data  to  the  indirect  registers  or  whether  they 
are  read  or  written  "directly"  after  the  appropriate  command 
has  been  given.  Here  the  latter  interpretation  is  chosen. 

IDIR4 

These  are  the  indirect  read  registers  of  the  8292  utilizing 
utility  commands  E3  to  E9.  They  differ  from  the  IDIR3  regis¬ 
ters  in  two  respects.  One  (obvious)  is  that  data  is  read  from 
them.  The  second  is  that  the  TCI  status  bit  of  the  TCI  status 
register  must  be  observed  to  indicate  that  the  desired  regis¬ 
ter  is  ready  to  be  read.  TCI  is  also  used  to  indicate  comple¬ 
tion  of  various  "direct"  commands  by  the  8292.  It  is  very 
important  to  observe  that  TCI  does  not  reset  immediately  on 
issuing  a  command  so  that  usually  a  wait  loop  must  be  inserted 
to  observe  the  reset  of  TCI  before  another  loop  can  be  entered 
to  observe  the  set  of  TCI. 

Event 

The  event  Registers  are  those  which  contain  valid  data  only  on 
the  occurrence  of  events  which  are  signaled  by  setting  of  various 
event  status  bits.  These  are  usually  "special”  events  associated 
with  GPIB  interface  functions  and  which  usually  occur  rather 
infrequently.  They  are  classified  according  to  the  actual  event 
(and  status  bit)  associated  with  them. 

EV1 

The  Command  pass-through  register  contains  a  valid  undefined 
multi-line  interface  message  ( ATN  must  be  set)  whenever  the 
CPT  status  bit  of  the  Interrupt  status  1  register  is  set 
(Command  pass-through  must  first  have  been  enabled  by  writing 
the  appropriate  command  to  the  Auxiliary  B  register).  This 
status  bit,  along  with  all  others  in  the  Interrupt  status  1 
register,  is  reset  when  read. 
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The  Serial  poll  status  register  contains  the  serial  poll 
status  byte  (actually  bits  S1-S6  and  S8)  as  written  into  the 
Serial  poll  mode  register.  (See  SPECl  ,  below.)  The  SRQS  bit 
is  used  to  indicate  the  status  of  a  serial  poll  by  the 
controller-in-charge.  The  SRQS  bit  is  set  when  the  8291 
Service  request  interface  function  is  in  the  Service  Request 
State  (SRQS).  Entry  to  this  state  is  initialized  by  writing 
to  the  Serial  poll  mode  register  with  the  rsv  bit  set.  The 
SRQS  bit  is  reset  when  the  controller-in-charge  does  a  serial 
poll  and  reads  the  status  byte  in  the  serial  poll  status  reais- 
ter . 

Special 

Special  Registers  are  those  which  require  a  special  protocol  for 

setting  or  clearing  bits. 

SPECl 

The  Serial  poll  mode  register  may  be  written  directly  with  the 
rsv  bit  set.  This  is  equivalent  to  sending  the  local  message 
"request  service".  This  bit  should  be  reset  by  writing  to  the 
serial  poll  mode  register  with  rsv=0  immediately  after  the 
serial  poll  status  byte  has  been  read  by  the  controller-in- 
charge  (as  indicated  by  SRQS  -  see  EV2  above). 


8291-set  operation 

In  the  previous  section  the  8291-set  was  described  in  terms  of 
the  various  Registers  whhich  are  accessible  to  the  Z-80  set  and 
which  may  be  used  to  provide  most  of  the  interface  functions  for 
the  bus.  In  this  section,  the  8291-set  is  described  from  an 
operation  standpoint,  i.e.,  how  it  implements  various  interface 
functions  and  its  relationship  to  the  Z-80  set  while  providing 
this  implementation. 

Actually  we  trace  through,  in  some  detail,  what  is  involved  in 
answering  a  request  for  service  from  another  device  (in  this  case 
the  Hamamatsu  camera).  In  doing  so,  we  get  involved  in  manv  of 
the  interface  functions  which  make  up  the  complete  GPIB  system. 

GPIB  review 

1)  The  GPIB  is  a  set  of  mechanical,  electrical  and  'erational 
specifications  which,  when  properly  implemented,  provide  for 
asynchronous  transfer  of  information  (messages)  amona  several 


devices  (with  GPIB  interfaces)  at  data  rates  up  to  one  million 
bytes/second.  E lect r o-mechan ical ly  the  bus  consists  of  16 
data  and  control  lines  (8  data  and  8  control)  plus  grounds  and 
shield.  The  control  lines  provide,  among  other  things,  for 
"handshaking"  of  messages  in  such  a  manner  that  in  a  multi¬ 
listener  configuration  (there  can  be  many  "listeners”  but  only 
one  "talker"  active  at  the  same  time),  the  data  transfer  rate 
is  adjusted  down  to  the  slowest  listener.  In  addition  to  data 
transport,  the  interface  provides  for  various  control  func¬ 
tions  such  as  remote/locate  switch,  device  trigqer,  device 
polling  (serial  and  parallel),  etc.  These  functions  are  des¬ 
cribed  in  detail  in  most  of  the  literature  on  the  GPIB  and,  in 
particular,  in  the  standard.  See  reference  (3). 

2)  In  order  to  comprehend  the  structure  of  the  GPIB  it  has  been 
functionally  partitioned  into  ten  interface  functions  (perhaps 
eleven  if  a  distinction  is  made  between  the  Control  Function 
and  the  System  Control  Function).  GPIB  overall  operation  is 
described  by  several  state  diagrams  wherein  each  interface 
function  has  associated  with  it  one  or  more  (three  is  the  maxi¬ 
mum)  connected  state  diagrams.  Each  such  connected  state  dia¬ 
gram  consists  of  two  or  more  mutually  exclusive  states  (repre¬ 
sented  by  labeled  circles)  and  connections  showing  how  the 
transition  from  one  state  to  another  is  made.  (These  are 
illustrated  later  in  much  detail  for  a  particular  bus  opera¬ 
tion  (service  of  a  request  for  service)).  These  state  dia¬ 
grams  can,  if  one  so  desires,  be  translated  into  a  set  of 
timing  diagrams  for  bus  and  "local"  signals.  However,  since 

in  particular,  the  8291-set  takes  care  of  most  of  the  bus 
timing,  it  is  much  easier  to  work  completely  with  the  state 
diagrams. 

3)  Each  interface  function  can  be  diagramed  as  a  box  (see  Fiqure 
3),  representing  the  function,  with  a  set  of  message  inputs 
and  outputs  (Interface  messages)  and  connections  to  the  other 
interface  functions  such  that  their  states  may  be  observed. 
(Interface  functions  are  interdependent  in  general.)  The 
input  messages  always  change  the  state  of  the  interface  func¬ 
tion.  These  messages  are  classifed  as  local ,  i.e.,  between 
the  device  containing  the  interface  and  the  interface  itself 
and  £ em o t e  for  messages  between  the  interface  and  the  bus  (to 
other  devices).  The  device  itself  (as  opposed  to  the  inter¬ 
face)  is  usually  described  by  a  set  of  device  functions  so 
local  messages  are  between  device  functions  and  interface 
functions.  Roughly  speaking,  at  least  from  an  operational 
standpoint,  the  Z-80  set  represents  the  device  function(s)  and 
the  8291-set,  the  interface  functions. 


Remote  messages  consist  of  interface  messages  (thev  chanqe  the 
state  of  an  interface  function)  and  device  dependent  messages 
(data  to  be  passed  among  various  devices  on  the  bus).  The  inter 
face  messages  are  also  partitioned  into  six  classes  which  indi¬ 
cate  their  usage  and  also  into  uni-line  and  multi-line  messaaes. 
(All  device  dependent  messages  are  multi-line.) 

All  remote  messages  are  coded  by  3  caDital  letters  in  the  dia¬ 
grams  (e.g.,  ATN  for  attention)  -  some  are  input,  some  outnut  an 
some  both.  Local  messages,  on  the  other  hand,  are  coded  bv  3 
uncapitalized  letters  (e.g.,  pon  for  power  on).  There  are  no 
local  messages  from  an  interface  function  to  a  device  function, 
only  from  device  to  interface.  Thus,  in  particular,  device 
dependent  data  (e.g.,  DAB  for  data  byte)  goes  "directly"  between 
device  functions.  Similarly,  addresses  go  "directlv"  between 
devices  although  they  are  "enabled"  by  the  Controller  function. 


Figure  3.  -  Interface  Function  Diagram 


There  are  certain  points  about  messages  that  are  useful  to 
remember . 

(1)  All  messages  intercepted  by  (input  to)  Interface  functions 
serve  to  change  the  state  of  the  function  provided  a  state 
transition  is  permitted  (by  the  state  of  other  Interface 
functions) . 


(2)  Local  messaqes  are  defined  om/  from  device  function(s)  to 
Interface  functions.  However,  the  Interface  function  must 
often  "notify"  the  device  function  of  some  event.  These 
"messages"  are  not  defined  by  the  standard. 

(3)  All  remote  interface  messages  received  are  intercepted  by 
one  or  more  Interface  functions  and  serve  to  change  the 
state  of  the  intercepting  function(s). 

(4)  All  remote,  coded  (multi-line)  interface  messages  sent  from 
a  device  originates  in  a  device  function  not  an  interface 
function.  However,  such  remote  messages  must  go  via  (be 
enabled  by)  some  interface  function  -  most  commonly  the 
Controller  function. 


Overview 


Roughly  speaking,  the  Z-80  set  represents  the  device  functions 
and  is  the  source  of  Local  messages  and  the  sink  for  device 
dependent  Interface  messages.  The  8291-set  represents  all  of  the 
interface  functions  and,  among  other  things,  interprets  and  takes 
action  on  all  non-device  dependent  Interface  messages.  (Excep¬ 
tions  to  this  blanket  statement  should  become  obvious  in  the 
following  discussion.)  Thus,  the  coding  of  the  Z-80  does  not 
have  to  include  much  of  the  bus  "protocol".  As  noted  earlier, 
the  8291-set  consists  of  the  8291,  8292  and  two  8293's  and  inter¬ 
connections  such  that  as  a  unit  it  provides  for  all  interface 
functions  including  proper  logical  leads  on  the  bus.  The  8291  by 
itself  provides  for  all  interface  functions  except  Control  (and 
System  Control).  More  exactly,  all  Interface  states  exclusive  of 
those  associated  with  Control  and  System  Control  are  associated 
with  the  8291  and  the  remainder  with  the  8292.  It  must  be  noted, 
however,  that  the  8291  and  8292  do  not  operate  independently  of 
one  another.  In  particular,  all  multi-line  messages  from  the 
device  (Z-80  set)  go  via  the  8291  and  the  8292. 

Request  for  Service 

With  this  introduction,  we  describe  a  response  (of  the  CTL )  to  a 
request  for  service.  The  strategy  is  to  look  at  the  appropriate 
Interface  function  immediately  affected  by  the  reauest,  then 
otner  Interface  functions  whose  states  affect  the  immediate  one, 
the  various  actions  required  by  the  8291-set  to  cause  various 
state  transitions  and,  finally,  how  these  actions  are  made  to 
happen  by  appropriate  instructions  from  the  Z-80  set. 
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State  diagram  viewpoint 


[For  clarity,  all  states  associated  with  the  camera  have  sub¬ 
script  r  (remote),  while  those  of  the  CTL  have  subscript  1 
(local).  Thus,  we  refer  to  local  and  remote  Interface  functions 
referring  to  the  CTL  (or  8291-set)  and  the  camera,  respectively. 
Since  there  is  only  one  controller  —  that  associated  with  CTL  — 
no  subscript  is  used  for  the  control  interface  function.) 

Briefly,  a  request  for  service  is  initiated  by  a  device  (the 
camera  in  this  instance)  sending  the  local  message,  rsvr  (reouest 
service)  to  its  Service  reauest  SRr  Interface  function  causinq  it 
to  go  from  the  NPRSr  state  (Negative  Poll  Response)  to  the  SRQSr 
state  (Service  Request  State).  It  should  go  to  this  state  pro¬ 
vided  its  Talker  (Tr)  Interface  function  is  not  in  the  SPASr 
state  (Serial  Poll  Active).  The  Tr  function  should  not  be  in 
this  state  but  is  later  put  there  briefly  during  the  serial  poll 
which  is  conducted  in  response  to  the  reauest  for  service.  While 
in  the  SRQSr  state,  the  camera  SPr  function  sends  the  SRQ 
message. 

In  response  to  SRQ,  the  local  Control  function  makes  the  transi¬ 
tion  from  the  CSNS  state  (Controller  Service  Not  Requested)  to 
the  CSRS  state  (Controller  Service  Requested  State).  While  in 
this  state  (as  long  as  SRQ  is  active)  it  notifies  the  device  func¬ 
tion  of  SRQ  (say  by  sending  the  srq  message). 

Upon  receiving  srq,  the  local  device  function  initiates  a  serial 
poll  (1)  to  find  out  what  device  is  requesting  service  and  (2) 
why  it  is  requesting  service  (by  decoding  a  status  message). 

This  is  done  by  sending  the  talker  address,  MT A ,  of  the  camera 
"via"  the  C  function  (assumed  to  be  in  the  CACS  state).  Since 
MTA  is  a  multi-line  message,  it  must  be  "handshaked "  to  the 
remote  devices.  This  is  accomplished  through  use  of  the  Source 
Handshake  function  ( SH i ) .  As  will  become  clear  later,  the  local 
Talker  function  T^  is  used  in  this  process  although  it  is  not 
"officially"  part  of  this  data  transfer.  Thus,  the  local  device 
function  makes  the  local  Talker  interface  function  take  part  in 
this  transfer  by  putting  it  into  the  TACSj  state.  (Note  that  if 
many  devices  were  connected  to  the  bus,  a  set  of  addresses  would 
be  sent  to  determine  which  one  was  reouesting  service.  Moreover, 
it  might  also  be  necessary  to  put  other  devices  in  a  known  state 
before  conducting  the  serial  poll.) 

Reception  of  MTAr  causes  the  camera  Talker  Interface  function 
(Tr)  to  go  from  the  TlDSr  state  (Talker  Idle)  to  the  TADSr  state 
(Talker  addressed)  with  the  help  of  the  AHr  (Acceptor  handshake) 
function. 


The  local  device  function  then  sends  the  serial  poll  enable  mes¬ 
sage  (SPE)  via  C  which  is  still  in  the  CACS  state.  This  causes 
the  T r  function  to  go  from  the  SPISr  state  (Serial  Poll  Idle)  to 
the  SPMSr  state  (Serial  Poll  Mode). 

Now  the  local  device  function  sends  the  local  message,  gts  (go  to 
standby)  to  C  causing  it  to  go  from  the  CACS  state  to  the  CSBS 
state  as  soon  as  the  Source  handshake  (SH^)  function  attains  the 
appropriate  stave.  (Note  that  while  the  active  controller  is  in 
this  state,  device  deoendent  messages  may  be  sent  -  ATN  is 
false. ) 

The  camera  Tr  function  now  goes  from  the  TADSr  state  to  the  SPASr 
state  (Serial  Poll  Active)  and  remains  there  as  long  as  ATN  is 
false.  This,  in  turn,  causes  the  SRr  function  to  go  from  the 
SRQSr  to  the  APRSr  state  (Affirmative  Poll  Response).  (Note  that 
rsvr  must  be  sent  continuously  from  the  camera  device  function  to 
SRr  to  keep  SRr  in  the  SRQSr  state  until  Tr  goes  to  the  SPASr 
state.)  The  camera  device  function  should  then  stop  sending  SRQ 
(more  specifically,  send  it  passively  false).  The  Tr  function 
sends  the  RQS  message  (DIO  line  7=1)  along  with  a  status  byte 
(DIO  1-6  and  8),  the  STB  message,  from  the  camera  device  func¬ 
tion. 

The  local  device  function  receives  the  RQS  STB  message  via  the 
local  Listen  Interface  function  (L^)  which  has  previously  been 
put  into  the  LACS ^  state  (Listen  Active).  (How  this  is  done  will 
be  demonstrated  later.)  The  transfer  of  datum  (the  RQS  STB  mes¬ 
sage)  takes  place  when  the  local  Acceptor  Handshake  (AH^)  func¬ 
tion  goes  to  the  ACDS^  state  (Accept  Data). 

Note  that  at  this  point  the  camera  is  (or  should  be)  still  in  the 
SPAS r ,  APRSr  state  and  the  local  interface  functions  are  in  the 
TACS j.  (somewhat  artificially),  LASSi  states.  In  order  to  leave 
these  states  and  get  back  to  inactive  states,  the  Controller  in 
charge  of  the  bus  must  send  the  ATN  message.  The  Controller  cur¬ 
rently  is  in  the  CSBC  (Standby)  state.  The  local  device  function 
now  sends  the  local  message,  tcs  (take  control  synchronously)  to 
C.  Assuming  that  the  RQS  STB  message  has  been  successfully  trans¬ 
ferred,  the  AH i  function  should  be  in  ANRS ^  state  and  C  will  go 
to  the  CSHS  state  (Controller  Standby  Hold)  state  and  then  go  to 
the  CSWS  state  (Controller  Synchronous  Wait)  after  a  time  delay 
of  at  least  1.5  microseconds.  When  (and  if)  C  goes  to  CSWS,  it 
sends  the  attention  message  ATN  and  after  another  "decay"  state 
falls  back  to  CACS.  If  the  local  tcs  message  is  de-asserted 
while  C  is  in  the  CSHS  state,  it  falls  back  to  the  CSBS  state. 

This  may  happen,  for  example,  if  the  AH^  function  cannot  go  to 
the  ANRS i  state  (the  handshake  is  "stuck").  If  this  happens,  the 
only  way  short  of  a  pon  (resetting  everything)  is  to  have  the 
local  device  issue  the  message  tea  (take  control  asynchronously) 
with  the  possible  loss  of  a  data  byte. 
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As  soon  as  the  ATN  message  is  received,  the  remote  Talker  func¬ 
tion  Tr  goes  to  the  TADSr  state  (from  SPASr).  This,  in  turn, 
allows  the  SRr  function  to  go  from  the  APRSr  state  to  the  NPRSr 
state.  (This  is  the  SR  "ground"  state.) 

Finally,  the  Tr  function  is  put  into  its  "ground"  state  by  send¬ 
ing  the  UNT  (untalk)  message.  This  is  accomplished  in  the  same 
way  as  MTA  was  sent  as  described  above. 

From  the  above  it  is  clear  that  all  Interface  functions  with  the 
exception  of  Parallel  Poll  (PP),  Remote/Local  (RL) ,  Device  Clear 
(DC)  and  Device  Trigger  (TR)  are  involved  in  a  service  request 
and  subsequent  serial  poll.  In  fact,  these  latter  four  Interface 
functions  are  not  implemented  in  the  CTL  since  the  camera  does 
not  implement  them.  They  are,  however,  easily  implementable  with 
the  8291-set;  it  is  mainly  a  matter  of  initiating  the  correct 
messages  within  the  Z-80  set. 

8291  state  viewpoint 

In  the  above  description  of  what  takes  place  during  a  reouest  for 
service  and  serial  poll,  a  description  was  given  of  the  various 
states  the  remote  Interface  function  (associated  with  the  camera) 
must  attain  during  the  process  along  with  remote  device  function 
messages.  From  the  standpoint  of  CTL,  of  course,  all  that  can  be 
ascertained  about  the  remote  device  (the  Interface  function 
states,  device  function  states,  etc.)  is  through  observation  of 
various  bus  messages  received  and  reaction  to  bus  messages  sent. 
Thus,  in  what  follows,  the  remote  states  are  considered  only  in 
so  far  as  they  can  be  "observed"  via  bus  messages  (probes).  As  a 
matter  of  fact,  the  camera  does  not  react  according  to  the  stan¬ 
dards.  For  example,  its  SRr  function  does  not  go  into  the  SRQSr 
state  (as  observed  by  looking  for  the  SRQ  message)  until  the 
Controller  function  C  has  gone  to  standby  CSBS.  Moreover,  the 
camera  always  has  two  RSQ  messages  to  give  rather  than  one. 

Below  we  assume  the  ideal  condition,  i.e.,  the  remote  device  or 
devices  adhere  to  the  standards. 


Having  described  the  service  request/serial  poll  sequence  from 
the  state  diagram  viewpoint,  we  now  describe  it  by  looking  at 
corresponding  states  of  the  8291-set  and  how  these  states  are 
intitiated  either  by  the  Z-80  instructions  or  information  ob¬ 
tained  from  the  bus.  It  should  be  emphasized  that  there  are 
often  alternative  ways  of  using  the  8291-set.  In  particular,  as 
mentioned  earlier,  the  Z-80  can  be  interrupt  driven.  Here  it  is 
"status  bit  driven",  i.e.,  interrupts  are  not  used  at  all. 

Before  going  through  the  step  by  step  sequence  outlined  above,  it 
is  necessary  to  put  the  GPIB  (local  Interface  functions  and  re¬ 
mote  Interface  functions)  into  a  known  "ground"  state.  In  addi¬ 
tion,  the  8291-set  must  be  initialized  in  some  manner  such  that 


it  too  is  in  a  known  "ground"  state  in  so  far  as  its  "ground" 
state  may  include  more  than  the  ground  state  of  its  associated 
Interface  functions.  For  this  purpose  it  is  assumed  that  there 
are  no  other  devices  on  the  bus  with  the  Controller  function. 

(The  CTL  does  have  provisions  for  another  device  to  have  control 
of  the  bus  on  power  up  but,  in  this  condition,  does  not  take  part 
in  any  bus  transactions  until  its  local  Control  function  becomes 
active.  Thus  it  is  possible  to  control  the  camera  from  other 
devices  such  as  the  HP  9825  calculator  and  to  then  have  this 
device  pass  control  to  the  CTL.  One  of  the  appendices  describes 
what  is  involved  here. 

This  "ground"  state  is  established  first  by  pulsing  the  external 
reset  pin  on  both  the  8291  and  8292  using  the  CTLRS  instruction 
of  NIC.  Among  other  things  this  has  the  effect  of  the  local 
message,  pan  (power  on)  putting  all  Interface  functions  into 


their  "ground"  states. 

Thus , 

for 

the  6 

Interface  functions  we 

are  concerned  with: 

Source  Handshake 

(SH) 

=> 

SIDS 

Acceptor  Handshake 

(AH) 

=> 

AIDS 

Talk 

(T) 

=  > 

TIDS 

(Note:  The  8291-set  is 

SPIS 

not  used  as 

an  extended 

talker. ) 

Listen 

(L) 

=> 

LIDS 

(Note:  The  8291-set  is 

not  used  as 

an  extended 

1 istener. ) 

Control 

(C) 

=> 

CIDS 

CSNS 

System  Control 

(SC) 

=> 

SIIS 

SRIS 

SNAS 

Assuming  that  the  SYC  switch 

is  or 

i,  SC 

goes  from  SNAS 

to  SACS 

(System  Control  Active) 

,  i.e. 

,  SYC 

:  "on" 

is  equivalent 

to  the 

local  message  rsc  (request  system  control).  This  in  turn  causes 
the  transition  SIIS  - >  SIAS  (the  local  message  sic,  send  inter¬ 

face  clear,  is  built  into  the  8292)  and  the  IFC  (Interface  Clear) 
message  is  sent.  At  the  same  time  (more  or  less),  the  C-function 
ends  up  in  CACS  (Controller  Active)  and  the  ATN  message  is  sent 
(continuously).  The  IFC  message  is  sent  via  an  implied  ABORT 
command  which  takes  155  microseconds  to  complete. 

External  reset  (by  CTLRS)  also  causes  the  Z-80  to  start  execution 
at  80 .  Thus,  the  init ial izt ion  subroutine  starts  here.  The  first 
thing  to  be  done  is  to  wait  for  the  ABORT  command  to  finish  execu¬ 
tion.  This  can  be  done  by  using  a  DJNZ  loop,  i.e., 

LD  B,  0 
LI  DJNZ  LI 

as  the  first  pair  of  instructions.  (See  note  1,  below.) 
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Internally,  the  following  Registers  are  reset  (cleared) : 

Interrupt  Status  1 
Interrupt  Status  2 
Serial  Poll  Mode 
Address  Status  (EOI  bit  only) 

Auxiliary  Register  A 
Auxiliary  Register  B 

Auxiliary  Register  P  (Parallel  poll  bit  is  reset) 

Interrupt  Status 
Interrupt  Mask  (See  note  1) 

Error  Flag 
Error  Mask 
Time  Out 

Event  Counter  (disabled) 

Note  1:  Because  the  Interrupt  Mask  register  is  cleared,  it  is  not 
possible  to  use  TCI  to  observe  when  the  ABORT  command  has 
been  completed.  This  is  the  reason  for  using  the  DJNZ 
loop  instead. 

After  this  external  reset  and  ABORT,  the  following  should  be  done 
to  put  the  8291-set  into  the  correct  state  for  succeeding  opera¬ 
tions: 

1)  Set  the  TCI  bit  in  the  Interrupt  Mask  register. 


INTMR  EQU  10H 

INTM  EQU  0 A0H 

LD  A, INTM 

OUT  (INTMR), A 


(The  Interrupt  Mask  register  is  port 
10H  in  the  CTL) 


2)  Preset  the  internal  counter  (in  the  8291  to  match  the  external 
clock  frequency)  used  to  generate  the  Tj  time  delay  for  the  SH 
function.  The  frequency  used  in  the  CTL  is  4  Mhz?  the  follow¬ 
ing  instructions  are  used: 


CLKRT  EQU  24H 
AUXMD  EQU  25H 
LD  A, CLKRT 
OUT  (AUXMD), A 


(Auxiliary  Mode  register  is  Dort  25H 
in  CTL.) 


3)  Disable  talker  and  listener  at  primary  and  secondary  (or  major 
and  minor)  addresses. 


ADR01  EQU  26H 
DTD LI  EQU  60H 
DTDL2  EQU  0E0H 
LD  A, DTD LI 
OUT  (ADR01 ) ,A 
LD  A,DTDL2 
OUT  (ADR0 1 ) , A 


(Address  0/1  register  is  port  26H 
in  CTL.) 
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This  is  done  with  an 


4)  Release  the  "initialization  state". 

"immediate  execute"  pon. 

XOR  A 

OUT  (AUXMD) ,  A 

The  current  software  in  the  CTL  also  includes  provisions  for 
looking  for  "time  out”  errors  for  which  a  time  value  is  inserted 
in  the  Time  Out  register.  For  clarity  this  is  ignored  in  the 
following. 

In  addition  to  initializing  the  8291-set,  the  CTLRS  instruction 
initializes  the  remote  devices  (in  this  case  just  the  camera)  to 
their  "ground  state"  through  the  IFC  message.  In  addition  to 
setting  the  camera  Interface  function  to  ground,  the  IFC  message 
also  causes  the  camera  device  function  to  reset.  Specifically, 
the  camera  Format  and  Control  functions  go  to  their  default 
values. 


At  this  point  the  8291-set  is  in  "ground"  state,  except  that  it 
is  the  System  Controller  and  Controller  in  charge  sitting  in 
state  CACS ,  and  waiting  for  the  Service  Request  message  to  come 
from  the  camera.  (The  fact  that  a  previous  command  to  the  camera 
from  CTL  caused  the  camera  to  initiate  a  video  sweep  is  irrele¬ 
vant  here.  We  assume  that  the  state  of  the  8291-set  and  bus  is 
as  given.  ) 

Note  that  in  the  CACS  state,  the  Controller  function  is  constant¬ 
ly  sending  the  ATN  message.  This  should  not  affect  the  camera's 
ability  to  transfer  from  (Service  Request  interface  function) 

NPRS  to  SRQS  but,  in  fact,  the  camera  will  not  make  the  transi¬ 
tion  while  ATN  is  asserted.  For  simplicity  we  assume  that  it 
adheres  to  the  standard  and  will  make  the  transition. 


When  the  SRQ  message  is  received,  the  SRQ  status  bit  in  the 
Interrupt  Status  register  is  set.  The  SRQ  status  bit  on  the  GPIB 
Status  register  is  also  set.  It  is  looked  for  on  the  Interrupt 
Status  register  in  the  followilg  loop: 


L2 


INTST  EQU  1 1 H  (The  Interrupt  Status  register 

SRQ  EQU  5  is  port  11H  on  CTL.) 

IN  A, ( INTST) 

BIT  SRQ, A 
JR  Z,L2 


It  should  be  noted  that  later  this  bit 
interrupt  acknowledge  (IACK)  command, 
is  sent  until  the  camera's  SR  function 
a  result  of  a  serial  poll  initiated  by 


must  be  reset  using  the 
However,  the  SRQ  message 
goes  to  the  APRS  state  as 
CTL. 
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Thus,  the  local  Controller  in  effect  sends  the  local  sra  messaqe 
to  the  device  function  (the  Z-80  set)  which  starts  to  initiate 
the  serial  poll  response.  As  noted  earlier,  the  first  step  is  to 
transfer  the  local  Talk  function  to  the  TACS  state.  This  is  done 
by  sending  the  local  message  ton  (talk  only)  which  puts  the 
Talker  to  the  TADS  (Talker  Addressed)  state.  However,  since  the 
Talker  (the  8291)  does  not  see  ATN  (which  is  still  being  sent), 
it  goes  without  further  instructions  to  the  TACS  state  from  which 
it  can  transmit  device  messages.  The  local  Source  Handshake  (SH) 
function  takes  part  in  this  message  transfer  but  is  transparent 
to  the  user  except  for  a  status  bit  which  says  when  the  next 
message  can  be  sent  to  the  8291-set.  The  following  code  is  used: 


INTI 

EQU  2lH 

(The  Interrupt  Status  regis¬ 

BOM 

EQU  2 

ter  is  assigned  port  21H 

TON 

EQU  80H 

in  CTL. ) 

DOUT 

EQU  20H 

(The  Data  Out  register  on  CTL 
is  assigned  port  20H.) 

TALKP 

EQU  42H 

(The  camera's  primary  talk 
address.  It  does  not  use  a 
secondary  address  for  serial 
poll. ) 

LD 

A,  TON 

OUT 

(ADRMD ) ,TON 

(Send  local  ton  message.  ) 

LD 

A, TALKP 

OUT 

(DOUT) , A 

(Send  camera  MTA) 

IN 

A,  (INTI) 

BIT 

BOM,  A 

(Wait  for  the  message  to  be 

JR 

Z,L3 

handshaken  out  of  the  Data 
Out  register.  This  is 
called  WAITO  (macro)  below.) 

Note: 

The  byte  output  status  bit,  BO,  is  set  whenever  the  Talk 
function  is  in  TACS  and  the  Source  Handshake  function  is  in 
state  SGNS  (or  SWNS) .  This  means  that  it  is  ready  to  transfer 
a  multi-line  message  to  the  bus.  By  waiting  here,  the  Data 
Out  register  will  be  ready  the  next  time  a  message  is  to  be 
transmitted.  The  local  message  nba  (new  byte  available)  is 
generated  whenever  a  byte  is  placed  in  the  Data  Out  register. 

With  the  reception  of  its  talk  address,  Tr  goes  to  TADS  and 
awaits  the  SPE  message.  The  following  code  sends  out  this 
message: 

SPE  EQU  18H 
LD  A, SPE 
OUT  (DOUT) , A 
WAITO 
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The  Tr  function  goes  to  SPMS  allowinq  Tr  to  also  go  to  SPAS  as 
soon  as  ATN  is  no  longer  asserted.  The  latter  happens  when  C 
goes  to  CSBS  as  follows: 


CMD9  2 

!  EQU  11H 

(The  Command  Field  register  is 

assigned  port  11H  in  CTL. ) 

GTSB 

EQU  0F6H 

(This  is  the  local  gts  message.) 

PRTF 

EQU  08H 

(The  TCI  status  register  is 

assigned  port  8H  in  CTL. ) 

TCIF 

EQU  0 

(The  TCI  status  bit  number  is  0. ) 

LD 

A, GTSB 

(Send  local  message  gts  and  wait 

OUT 

(CMD92 ) ,A 

L4 

IN 

A,  (PRTF) 

for  it  to  be  executed.  See  note 

BIT 

TCI F , A 

below. ) 

JR 

NZ,L4 

L5 

IN 

A,  (PRTF) 

Referred  to  as  WAITX  below. 

BIT 

TCIF, A 

JR 

Z  ,  L5 

Note: 

Whenever  an  "operation  command"  is  sent  to  the  8292,  the  TCI 
(Task  Complete  Interrupt)  is  set  upon  completion  of  the 
command  (provided  kt  was  masked  on  in  the  Interrupt  Mask 
register).  It  remains  set  until  shortly  after  a  new  command 
is  sent,  i.e.,  it  takes  7tCy  to  reset.  At  4  Mhz  this  is 
equivalent  to  26.25  microseconds.  This  is  the  reason  for  the 
first  loop. 

The  camera  SR  function  can  now  enter  the  APRS  state  and  the  cam¬ 
era  device  function  can  send  the  RQS  STB  message.  The  following 
code  is  used  to  receive  this  message. 


LON 

EQU  40H 

(The  Ion  (listen  only)  local 
message . ) 

BIM 

EQU  0 

DIN 

EQU  20H 

(The  Data  in  register  is 
assigned  to  oort  20H  in  CTL.) 

LD 

A,  LON 

(This  sends  the  local  Ion  mess¬ 

OUT 

(ADRMD )  , A 

age  causing  the  Listen  function 
to  gc  to  the  LADS  (Listener 
Addressed  state) . 

XOR 

A 

(Sends  the  local  pon  (power  on) 

OUT 

(AUXMD )  ,0 

message  causing  all  Interface 
functions  associated  with  the 

8291  to  go  to  "ground"  state. 
Note,  however,  that  the  Ion  mess¬ 
age  remains  active  so  that  the 
Listen  function  goes  back  to 
LADS.  See  note  below.) 


L6 

IN 

A, (INTI) 

BIT 

BIM,A 

JR 

Z  ,L6 

Referred  to  as  WAITI  below. 

IN 

A, (DIN) 

Note: 

When  any  message  (in  this  case  the  RQ3  STB)  has  been  "hand- 
shaken  through"  the  bus,  the  byte  in  (BI)  status  bit  of  the 
Interrupt  Status  1  register  is  set.  It  is  reset  upon  being 
read. 

The  camera  must  now  be  taken  out  of  the  SRr  APRS  state  and  Tr 
SPAS,  SPMS  states.  Briefly,  this  is  done  as  follows: 

(a)  The  Controller  sends  the  ATN  message  causing  Tr  to  go  to 
TADS. 

(b)  The  local  device  function  sends  the  message  (via  C) ,  SPD 
(Serial  Poll  Disable)  which,  when  handshaken  through, 
causes  the  SPMS  function  to  go  to  "ground  state"  SPIS. 

(c)  The  camera  should  also  go  to  the  SRr  "ground  state”  NPRS. 
(Assuming  the  camera  rsv  message  is  no  lonqer  being  sent.) 

The  coding  is  as  follows: 


TCSY 

EQU  0FDH 

(Take  control  synchronously 
local  message.) 

SPD 

EQU  19H 

(Serial  Poll  Disable  message.) 

LD 

A, TCSY 

(Send  tcs  and  wait  for  state 

OUT 

(CMD92) ,A 

change.  C  goes  to  CACS  via 

WAITX 

CSHS ,  CSWS,  CAWS.) 

LD 

A, TON 

(Since  the  8291  was  previously 

OUT 

(ADRMD ) , A 

"configured”  to  be  a  listener, 

XOR 

A 

it  must  now  be  configured  to 

OUT 

(AUXMD ) ,A 

be  a  talker.  Note  again  the 

LD 

A, SPD 

use  of  pon  to  establish  the 

OUT 

WAITO 

(DOUT) ,A 

correct  "ground”  state. ) 

The  next  to  last  step  is  to  bring  the  camera  Tr  function  back  to 
ground  state  (TIDS)  since  it  is  still  in  the  TADS  state.  This  is 
done  by  sending  another  talk  address  or  equivalently  the  UNT  mess¬ 
age. 


UNT  EQU  5FH 
LD  A, UNT 
OUT  ( DOUT) ,A 
WAIT O 
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The  last  step  is  to  "clean  up"  the  8291-set  interrupt  flags. 
Specifically,  the  SRQ  bit  in  the  Interrupt  Status  register  must 


be  reset  via  the 

IACK 

command . 

IACK 

EQU 

0BH 

(This  is  the  basic  IACK  command 
conf iguration. ) 

SRQB 

EQU 

20H 

(To  be  added  to  IACK  to  clear 
SRQ. ) 

IBFBT 

EQU 

1 

(Input  buffer  full  bit  for  the 
Interrupt  Status  register.) 

L7 

IN 

A, ( INTST) 

(Wait  for  any  pending  command 

BIT 

IBFBT, A 

to  the  8292  to  clear  the  input 

JR 

NZ,L7 

buffer.  This  bit  is  reset 

LD 

A , IACK+SRQB 

when  the  buffer  has  been  clear¬ 

OUT 

(CMD92 )  ,A 

ed  by  the  82  92.  This  step  can 

L8 

IN 

A, (INTST) 

usually  be  omitted  since  a 

BIT 

IBFBT,  A 

check  for  TCI  is  always  done. 

JR 

NZ,L8 

IBF  should  clear  within  24cy  = 
90  microseconds  at  4  Mhz.) 

Note: 

The  last  loop  is  to  wait  for  the  IACK  command  to  clear.  A  TCI 
is  not  generated  unless  the  error  (ERR)  bit  is  set.  The  SPI 
interrupt  can  also  be  checked  for  SRQ  clear.  See  comments 
below. 

Comments 


In  the  previous  section  we  have  painstakingly  gone  through  the 
relatively  simple  task  of  responding  to  a  request  for  service. 

In  doing  so  some  of  the  relationships  between  "states"  of  the 
8291-set  and  those  of  the  various  Interface  functions  have  been 
at  least  implicitly  described.  As  can  be  observed  from  the 
complete  list  of  Registers  available,  and  the  contents  thereof, 
there  is  much  more  to  learn  about  the  8291-set.  This  can  be  done 
by  a  careful  reading  of  the  Intel  Peripheral  Design  Handbook. 
Something  should  be  stated  about  observation  of  bus  errors 
however.  In  the  call  sequence  given  above  it  was  implicitly 
assumed  that  everything  went  as  planned.  Since  status  polling 
rather  than  interrupts  are  used,  if  something  goes  wrong,  for 
example,  a  message  does  not  get  handshaken  through  the  bus,  the 
program  will  hang  up  in  a  loop.  Several  error  conditions  may  be 
checked  for.  These  are  discussed  briefly  below. 

1)  If  the  8291  is  in  the  talker  active  state  (TACS)  with  a  mess¬ 
age  to  send  and  no  listener  is  in  the  LACS  state  (the  byte  can 
not  be  handshaken  onto  the  bus),  the  ERR  bit  in  the  Interrupt 
Status  1  register  will  be  set. 


44 


2)  There  are  various  errors  which  are  flagged  by  the  8292.  These 
errors  are  first  of  all  observed  by  the  error  bit,  ERR,  in  the 
Interrupt  Status  register.  The  error  type  can  then  be  deter¬ 
mined  by  observing  the  contents  of  the  Error  Flag  register  as 
follows: 

USER  -  the  local  message  sic  {send  interface  clear)  or  sre 
(send  remote  enable)  is  passed  to  the  8292  and  it  is 
not  the  System  Controller  (in  state  SIIS,  SRAS). 

TOUT1  -  this  "time  out"  error  is  generated,  after  a  period 
of  time  determined  by  the  contents  of  the  Time  Out 
register,  when  the  local  Controller  function  tries 
to  go  from  CIDS  to  CADS  when  the  TCT  message  is 
received  from  the  bus  and  the  current  Controller  in 
charge  has  not  stopped  sendinq  the  ATN  message. 

T0UT2  -  a  time  out  error  which  is  generated  when  the  local 
Controller  goes  to  the  CSBS  state  and  the  trans¬ 
mission  between  the  addressed  talker  and  listener (s) 
has  not  started. 

T0UT3  -  a  time  out  error  which  occurs  when  the  local 

Controller  function  tries  to  go  from  the  CSBS  state 
to  the  CSWS  state  (via  CSHS)  and  does  not  do  so 
because  AH  does  not  go  to  the  ANRS  state  (the 
handshake  is  "stuck").  If  this  happens,  an 
alternative  is  to  issue  the  tea  (take  control 
asynchronously)  local  command  which  will  force  the 
Controller  to  the  CSWS  state  (with  possible  loss  of 
a  data  byte  or,  worse  yet,  a  device  message  is 
interpreted  as  an  Interface  message  because  ATN  is 
sent  while  a  valid  data  byte  is  still  on  the  bus. 

The  ERR  "interrupt"  in  the  Interrupt  Status  register  is  one  mem¬ 
ber  of  a  set  of  interrupts  which,  when  ORed  together,  constitute 
an  actual  special  interrupt  (SPI).  The  following  diagram  is 
pertinent. 


S  P  I 


Special  Interrupt  (on  pin  33  of  the  8292) 


OR 


OR 


OR 


OR 


ERR  SYC  SRQ  EV  IFCR  -  Observe  an 


OR 

OR 

OR 

USER  TOUT 3  TOUT2  TOUTl 


-  Observe  an  Error 


Interrupt  Status 


Flag  register 


The  CTL  makes  a  check  for  TOUT3  and  does  a  tea  if  such  an  error 
occurs.  All  other  bus  errors  are  taken  care  of  by  doing  an 
external  reset  (with  CTLRS ) .  Further  comments  on  this  are  made 
at  the  end  of  the  section  on  Z-80  software. 
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SECTION  II  -  CTL  SOFTWARE 

The  CTL  presently  contains  some  preliminary  software  which 

1)  provides  for  sending  data  from  CTL  to  one  or  more  listeners 
(they  may  have  extended  addresses). 

2)  provides  for  the  reception  of  data  from  a  talker  (which  may 
have  an  extended  address). 

3)  provides  for  the  reception  of  a  service  reauest  and  subseauent 
parallel  poll.  (This  function  has  been  specialized  to  account 
for  the  idiosyncrasies  of  the  Hamamatsu  camera.) 

4)  provides  for  CTL  to  become  controller  in  charqe  from  another 
device  previously  in  charge  of  the  bus.  Note  that  CTL  cannot 
take  part  in  data  transfers  until  it  is  the  controller  in 
charge  using  the  current,,  software. 

5)  provides  for  the  transfer"  of  data  between  CTL  and  NIC.  With 
the  exception  of  a  few  instructions  in  PROM  (which  are  always 
executed  on  external  reset),  this  code  is  contained  within  the 
first  lK-bytes  of  RAM.  It  is  transferred  there  from  NIC  with 
the  help  of  the  resident  PROM  software.  Eventually,  this  code 
will  be  put  into  PROM  (with  a  few  modifications)  after  it  has 
been  thoroughly  checked. 

In  broad  outline,  this  software  operates  as  follows: 

a)  on  reset  the  PROM  software  does  some  preliminary  8291-set 
initialization,  sets  the  stack  pointer  to  BFF  and  then 
waits  for  a  read-register,  write-register  or  "boot"  com¬ 
mand  from  NIC.  NIC  sends  this  boot  command  and  transfers 
IK  bytes  of  data  (actually  program)  into  locations  800H 
to  BFRH.  The  boot  program  then  transfers  control  to 
location  800H. 

b)  more  initialization  is  done  including  an  internal  reset. 
If  the  SYC  switch  is  on,  the  CTL  becomes  the  system  con¬ 
troller  and  controller  in  charge  and  sends  out  the  IFC 
message  to  clear  other  devices  on  the  bus.  Otherwise  it 
waits  for  TCL  from  the  current  Controller  in  charge  of 
the  bus. 

c) * following  initialization,  the  program  goes  into  the  main 
/"command"  loop.  Within  this  loop  a  command  table  is  re¬ 
ceived  from  NIC.  This  is  a  table,  twenty  bytes  in  length, 
containing  parameters  for  each  command  to  be  executed. 

The  first  item  in  the  table  is  the  number  of  the  command 
to  be  executed. 

d)  at  present  five  commands  are  implemented  as  follows: 

C0M1  Send  data  from  CTL  to  the  bus. 

COM2  Receive  data  into  CTL  from  the  bus. 

COM4  Re^-ive  service  request  and  do  serial  poll. 
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COM 5  Receive  data  into  CTL  from  NIC.  (Note  that 
this  subroutine  is  also  used  to  read  in  each 
command  table. ) 

C0M6  Send  data  from  CTL  to  NIC. 

e)  upon  completion  of  each  command,  the  command  subroutine 
returns  via  way  of  a  pseudo-subroutine  which  sends  a  "com¬ 
pletion"  message  to  NIC.  CTL  and  NIC  are  "synchronized" 
by  having  access  to  the  same  command  table  which,  among 
other  information,  contains  the  total  number  of  bytes  to 
be  transferred  from  CTL  to  NIC  and  vice  versa  -  assuming, 
of  course,  that  nothing  goes  wrong. 

A  complete  annotated  listing  of  the  current  CTL  software  is  in¬ 
cluded  in  Appendix  B.  It  is  largely  a  modification  of  software 
appearing  in  reference  (2). 
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SECTION  III  -  NIC  SOFTWARE 
Overv iew 


An  extensive  library  of  NIC  assembler  language  subroutines  were 
written  to  be  used  in  conjunction  with  CTL.  A  listing  of  them 
appears  in  Appendix  C.  Together,  in  conjunction  with  the  NIC 
Demon/II  operating  system,  they  provide  an  operational  system  for 
use  with  CTL  and,  in  particular,  for  obtaining  and  storino  or 
displaying  frames  of  pictures  from  the  Hamamatsu  camera. 

Before  describing  these  subroutines,  if  is  instructive  to  review 
some  of  the  characteristics  of  the  NIC  which  have  particular 
significance  in  the  design  of  its  software. 

1)  Main  memory  is  segmented  into  2000  (octal)  word  sections. 
References  to  (direct)  addresses  in  an  instruction  are  always 
relative  to  the  page  boundary.  Thus,  indirect  addressing  must 
be  used  to  reference  addresses  off  of  the  page.  Thus,  in 
particular,  a  given  subroutine  should  usually  not  go  across 
page  boundaries.  Also  note  that  location  1777  (relative)  on 
each  page  is  used  by  the  debugging  subroutine  NICBUG  so  should 
ordinarily  not  be  referenced  by  a  user  program. 

2)  The  word  size  of  NIC  is  20  bits.  Since  data  from  the  CTL  (and 
the  camera)  consists  of  8  bit  bytes,  it  is  usually  desirable 
to  pack  them  2  1/2  bytes  per  word  for  disk  storage. 

3)  There  is  no  linking  loader  so  once  a  subroutine  is  assembled 
it  is  unrelocatable.  The  CTL  associated  software  has  been 
partitioned  into  6  segments  located  (approximately)  as 
follows: 


SEG 

1 

0-1750 

SEG 

2 

2020-2410 

SEG 

3 

2420-2570 

SEG 

4 

2605-3305 

SEG 

5 

3310-3760 

SEG 

6 

4010-4400 

Each  segment  is  assembled  as  a  unit  and  external  references 
(to  other  segments  and  NIC  Demon/II  modules)  are  given  at  the 
end  of  each  segment.  These  references  may  have  to  be  updated 
whenever  other  segments  are  changed. 


Below,  the  contents  of  each  segment  is  briefly  described. 


Software  segments 


SEG  1  (MAIN) 


This  segment  contains  the  CAMERA  MAIN  program  which  is  a 
user  interactive  program  with  8  "modes"  of  operation  having 
to  do  with  interfacing  with  CTL  and  gathering  data  from  the 
camera.  It  also  contains  five  "command"  subroutines,  COMl, 
COM2,  COM4,  C0M5,  COM6  corresponding  to  the  five  available 
commands  in  CTL.  In  addition,  there  are  a  few  interspersed 
local  "service"  modules  used  either  by  CAMERA  MAIN  or  the 
COM  subroutines. 


CAMERA  MAIN  consists  of  two  CTL/camera  related  tables,  a 
short  mode  query  section  and  8  mode  sections.  The  first 
table,  running  from  0-23  (all  addresses  are  octal)  is  the 
command  table  referred  to  earlier  in  CTL  software.  The 
second  table,  runninq  from  24-70  is  a  camera  table  which  is 
used  to  keep  track  of  the  "state"  of  the  camera  and  to 
provide  camera  secondary  address  values  to  be  associated 
with  mnemonics  from  camera  formatting.  See  comments  in 
CAMERA  MAIN  for  a  description  of  this  table  and  its  use  for 
camera  formatting. 

Starting  at  entry  point  71  is  a  short  mode  query  section 
which  asks  the  user  to  choose  one  of  eiqht  possible  modes 
(of  operation ) . 

Mode  1 


This  mode  provides  for  initializing  CTL  and  camera.  The 
mode  auery  is  FILE  NAME?-  to  which  the  user  should  res¬ 
pond  with  the  name  of  the  file  containing  the  program  to 
be  loaded  into  CTL.  The  user  may  reply  with  a  non-exis¬ 
tent  file  in  which  case  whatever  is  in  NIC  memory  start¬ 
ing  a  location  100000  is  loaded  into  CTL.  This  feature 
allows  the  user  to  make  changes  in  the  Z-80  machine  code 
before  it  is  loaded  (see  mode  8).  Note  that  the  program 
exists  in  packed  form  (5  hex  nibbles  per  NIC  word)  in 
NIC.  After  loading  the  file  (if  it  exists),  the  camera 
table  is  initialized  to  the  default  values  (see  Table  6). 
Following  this,  the  CTL  reset  instructions,  CTLRS,  is 
sent  followed  by  the  instruction  causing  the  CTL  program 
to  be  loaded.  The  program  is  then  passed  to  CTL  using 
subroutine  UNPF  which  unpacks  the  contents  of  100000  + 

...  into  8  bit  bytes  and  sends  them  to  CTL. 


50 


r 


NAME 

PEL. 

ADDR. 

COMl 

COM2 

COM4 

COMS 

C0M6 

OCT 

HEX 

NIC 

CTL 

NIC 

CTL 

NIC 

CTL 

NIC 

CTL 

NIC 

CTL  1 

COMN 

0 

0 

X 

_ * 

X 

X 

1  X 

NLIST 

l 

1 

_ I±2 

nn 

X 

X  ) 

LIS1P 

2 

2 

x  ! 

X  | 

(X) 

(X) 

^^3 

3 

3 

X  ' 

_ X _ 1 _ 

(X) 

(X)  ; 

LIS2P 

4 

4 

X 

-X 

;  (X)  ! 

(X)  ! 

LIS2S 

5 

5 

X 

mm 

1  (X)  J 

ix)  ! 

LIS3P 

6 

6 

X 

X 

i  (X) 

(X)  ! 

LIS3S 

7 

7 

X 

X 

I 

1  (X) 

( x )  i  1 

TALKP 

10 

8 

X 

X 

(X) 

!  (X) 

TALKS 

11 

9 

- 

X 

X 

(X) 

j  (X) 

EOSC 

12 

A 

-- 

X 

mm 

(X) 

!  (X) 

NOAT 

13 

S 

X 

mm 

X 

X 

Y 

--  *  ■-) 

x  ! 

NDATB 

14 

c 

X 

X 

X 

X 

X 

x  ! 

DATA  L 

wm 

D 

X 

xj 

X 

x  1 

DATAH 

16 

E 

X 

mm 

X 

X  i 

MESS 

17 

F 

I 

STAT1 

20 

10 

i 

L_  j 

STAT2 

21 

11 

i 

DUM1 

22 

12 

X 

X 

DUM2 

JU 

X  ■>  always  used  (X)  ■>  sometimes  used  for  "immediate*  data 


COWJ 

NLIST 

LIS1P 

LIS1S 

TALKP 

TALKS 

EOSC 

NDAT 

NDATB 

DATAL 

DATAB 

MESS 

ST  ATI 

STAT2 

DUM1 

DUM2 


Command  number 

No.  of  listeners  (or  data  storage  indicator) 

First  listener  primary  address  (or  "immediate"  data) 

First  listener  secondary  address  (or  "immediate"  data), 
etc.  for  LIS2 ,  LIS3 

Talker  primary  address  (or  "immediate"  data) 

Talker  secondary  address  (or  "immediate"  data) 

End  of  data  character 

No.  of  data  bytes  to  be  transferred 

No.  of  2S6  byte  data  blocks  to  be  transferred 

Low  order  byte  of  2  byte  address  for  start  of  data  store 

High  order  byte  of  2  byte  address  for  start  of  data  store 

Not  used  at  present 

Not  used  at  present 

Not  used  at  present 

Pack/unoack  data  indicator 

Not  used  at  present 


Table  6 


NIC /CTL  Command  Table 


Mode  2 


This  mode  provides  for  loading  special  "commands"  into 
CTL  and  then  executing  them.  The  mode  queries  are 
COMMAND#?-,  to  which  the  user  should  reply  with  7  or  8 
and  FILE  NAME?-  to  which  the  user  should  reply  with  the 
name  of  the  NIC  file  containing  the  module  to  be  loaded. 
If  the  file  does  not  exist,  it  is  not  loaded,  rather  the 
query  is  repeated.  The  following  assumptions  are  made: 

(1)  the  CTL  command  associated  with  7  is  to  be  loaded  at 
C00H  in  CTL. 

(2)  the  CTL  command  associated  with  8  is  to  be  loaded  at 
E00H. 

(3)  the  NIC  commands  corresponding  to  the  CTL  commands 
are  already  loaded  in  NIC. 

(4)  Each  CTL  module  is  a  maximum  of  512  (decimal)  bytes 
in  length. 

At  present,  the  CTL  main  program  contains  calls  to  C0M7 
and  COM8  but  the  calling  addresses  are  not  available. 
Thus,  the  following  changes  should  be  "patched"  into 
the  program  which  is  loaded  under  mode  1  (use  mode  8) . 

location  84E  CD0000  =>  CD000C 
location  851  CD0000  =>  CD000E 

Mode  3 


This  mode  provides  for  the  transfer  of  CTL  programs 
developed  on  other  systems  into  NIC  via  way  of  a  floppy 
disk  based  intermediary.  Specifically,  programs  devel¬ 
oped  (and  debugged)  on  a  Tektronix  8002  microprocessor 
development  system  can  be  stored  in  a  Sykes  Comm-Stor 
communications  storage  unit  which  may  then  be  used  to 
transfer  the  program  to  NIC.  The  main  advantage  of  the 
Comm-Stor  for  intermediate  storage  is  its  portability 
(neither  the  NIC  nor  Tektronix  8002  is  very  portable). 

The  mode  query  is  FILE  NAME?-,  to  which  the  user  should 
reply  with  the  name  of  the  Comm-Stor  file  to  be  trans¬ 
ferred  to  NIC.  It  is  stored  under  the  same  name  in  NIC. 
The  file  on  Comm-Storr  is  a  direct  copy  of  a  Tektronix 
Hex  file  which  is  crated  using  the  WHEX  command.  (See 
Appendix  D  for  the  format  of  this  file  and  how  it  may  be 
created.)  It  is  basically  the  ASCII  equivalent  of  the 
Z-80  machine  code  to  be  loaded  into  CTL.  Before  it  is 
stored  in  NIC,  the  header  and  trailer  information  on  each 
record  is  stripped  off  and  the  code  is  packed  -  5  nibbles 
per  NIC  word.  This  file  may  be  loaded  into  CTL  using 
either  mode  1  or  mode  2. 
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Mode  4 


This  mode  provides  for  formatting  of  the  camera  usinq  the 
various  secondary  listener  addresses  provided  for  this 
purpose  (see  reference  (5)).  The  mode  auery  is 
MNEMONIC?-,  to  which  the  user  should  reply  with  one  of  5 


accept 

able  mnemonic  codes: 

OUT 

output  format 

( 1  or 

2) 

INF 

input  format 

(1/2 

or 

3) 

XCC 

starting  x-coordinate 

(0000 

to 

1023) 

INT 

interlace  number 

(1,2 

or 

4) 

MAR 

marker  on/off 

( 1  or 

8) 

The  current  format  associated  with  this  code  is  then 
printed.  The  user  may  reply  with  CR  (carriage  return)  to 
accept  the  current  value,  or  type  in  the  new  value  de¬ 
sired.  If  a  new  value  is  typed  in,  it  is  stored  in  the 
camera  table.  This  mode  should  be  repeated  for  each  for¬ 
mat  value  to  be  sent  to  the  camera. 

Mode  5 


This  is  the  mode  to  be  used  when  a  "frame"  of  video  data 
is  to  be  obtained  from  the  came  a  -  either  for  display  or 
for  storage  in  NIC.  The  first  mode  query  is  FILE  NAME?-, 
to  which  the  user  should  reply  with  either  the  name  of 
the  NIC  file  under  which  the  frame  is  to  be  stored  or 
PRINT  (or  just  PRI)  if  the  frame  is  to  be  displayed 
rather  than  stored  (see  below  for  restrictions). 

The  second  mode  query  is  FRAME?-,  to  which  the  user 
should  reply  with  VII,  VII  or  VIC  for  1  line  of  video, 
incremented-video  or  decremented-video,  respectively.  In 
the  incremented-  and  decremented-video  camera  modes,  sev¬ 
eral  video  scans  are  gathered,  starting  at  the  current 
x-coordinate  and  ending  at  either  x=1023  (incremented)  or 
x=0  (decremented).  The  maximum  number  of  scans  is  1024 
depending  on  values  for  XCO  and  INT. 

Note  that  XCO  must  be  set  to  the  desired  frame  x-coordin¬ 
ate  using  Mode  4,  prior  to  every  use  of  VII  or  VID. 

Whether  the  frame  is  actually  stored  or  printed  depends 
partly  on  the  value  of  the  camera  input  format  (mnemonic 
INF).  If  the  value  is  1  or  3,  the  frame  is  never  stored 
because  the  output  under  this  format  is  ASCII;  each  pixel 
is  represented  by  4  characters,  the  last  of  which  is  a 
space  (or  possibly  CR).  In  addition,  if  INF=3,  a  LF 
character  is  sent  every  16  pixels.  The  maximum  scan 
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length,  if  INF=1  ,  is  256  pixels  (1024  bytes)  since  this 
is  the  buffer  space  in  CTL  for  storing  a  scan  line  at 
present.  INF=3  will  overflow  the  buffer  at  present  so 
some  data  will  be  lost  in  this  format.  (There  is  no  need 
to  use  it  since  in  INF=1  ,  the  CR/LF  is  supplied  by  the 
display  subroutine  in  NIC. 

Thus,  regardless  of  the  file  name  given,  if  INF  does  not 
egual  2,  the  frame  is  printed  only.  If  INF  =  2  and  the 
file  name  is  PRINT,  each  pixel  is  displayed  as  two  ASCII 
characters  representing  the  hexadecimal  value  of  the 
pixel.  There  is  no  space  between  characters  and  32 
pixels  are  displayed  on  one  line  (versus  16  if  INF=1  or 
3)  . 

Each  line  of  video  is  gathered  using  the  command 
sequence : 

COMl  -  send  command  to  camera  to  make  the  next  video 
sweep. 

COM4  -  wait  for  service  request  -  do  serial  poll. 

COM 5  -  transfer  a  scan  line  from  the  camera  to  CTL. 
COM6  -  transfer  the  scan  line  from  CTL  to  NIC. 

It  has  been  found,  experimentally,  that  a  variable  length 
pause  must  be  inserted  between  the  end  of  serial  poll 
(COM4)  and  the  transfer  of  data  to  CTL  (COM5).  The 
length  of  pause  required  depends  on  the  length  of  each 
scan  line.  (Thus,  it  appears  that  the  SRQ  message  from 
the  camera  is  asserted  before  a  scan  has  been  completed.) 

It  also  should  be  noted  that  the  serial  poll  response 
(RQS  STB)  for  each  line  of  video  is  printed  regardless  of 
whether  the  line  is  to  be  stored  or  printed.  This  can  be 
used  to  indicate  that  a  frame  is  indeed  being  obtained. 

Mode  6 


This  mode  is  used  to  transfer  part  of  CTL  memory  (either 
PROM  or  RAM)  to  NIC  (starting  at  location  100000).  The 
mode  query  is  HEXN-,  to  which  the  user  should  reply  with 
the  4  digit  hexadecimal  starting  address  of  memory  to  be 
transferred  followed  by  a  single  digit  representing  the 
number  256  (decimal)  byte  locks  to  be  transferred.  For 
example,  08004  will  transfer  4  blocks  of  memory  starting 
at  hex  800.  The  contents  of  memory  may  then  be  displayed 
by  using  mode  7.  (The  number  of  bytes  to  be  displayed  is 
saved  for  use  by  mode  7.) 
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This  mode  is  useful  for  examining  the  contents  of  CTL 
memory  or  for  storing  it  for  modification  using  mode  8. 
(Note  that  within  NIC  the  bytes  are  stored  in  packed 
form.) 

Mode  7 

This  mode  is  used  to  display  in  hexadecimal  form  (5 
nibbles/NIC  word) ,  the  contents  of  NIC  memory  starting  at 
location  100000  at  32  characters/line.  (This  corresponds 
to  one  record  in  the  Tektronix  Hex  file.)  This  mode  is 
designed  to  be  run  after  mode  3  or  mode  6  in  which  case 
the  number  of  bytes  (=2  nibbles)  to  be  displayed  is  pro¬ 
vided  by  these  modes.  Otherwise,  the  user  should  use 
NICBUG  to  insert  the  number  of  bytes  at  the  location 
labeled  NBY5.  (This  can  be  found  by  looking  at  the 
current  symbol  table  for  SEG1.) 

Mode  8 

This  mode  provides  the  capability  of  relatively  easily 
changing  the  contents  of  CTL  memory.  (Note  that,  at 
present,  all  instructions  except  the  "boot"  program  are 
in  RAM.)  The  technique  is  to 

(1)  bring  the  program  to  be  modified  into  NIC  by  using 
either  mode  3  or  mode  6.  Alternatively,  the  Droqram 
can  be  loaded  directly  from  NIC  disk  using  the 
DEMON/ II  LOAD  instruction  -  assuming  the  program  is 
stored  there. 

(2)  examine  and  change  using  mode  8. 

(3)  put  the  modified  program  into  CTL  using  mode  1  or 
possibly  mode  2  (the  contents  should  be  put  in  a  NIC 
file  first  if  mode  2  is  used). 

The  mode  query  is  OCT-,  to  which  the  user  should 
reply  with  the  (up  to  7  digit)  octal  starting  address 
of  NIC  memory  to  be  examined  and  possibly  changed. 
(The  address  given  is  right  justified  zero-fill. 

Thus,  100=0000100.  Usually  the  address  will  be 
100000  plus.) 

The  contents  of  memory  at  this  location  is  then  dis¬ 
played  as  5  hexadecimal  digits  (5  nibbles  in  each 
word)  .  The  user  may  respond  with 

(a)  space  (actually  any  sequence  of  1  to  4  charac¬ 
ters)  followed  by  CR. 


(b)  5  characters  followed  by  CR. 

(c)  CR  with  no  preceding  character. 

If  (a),  then  the  next  word  is  displayed  with  no 
change  to  the  current  word. 

If  (b) ,  the  current  word  is  changed  to  the  value 
given  and  the  next  word  is  displayed.  (If  the  value 
is  not  hexadecimal,  then  the  changed  word  is  "unpre¬ 
dictable"  . ) 

If  (c) ,  then  the  mode  is  exited  with  no  change  to  the 
current  word. 

The  following  "escapes"  are  provided  in  CAMERA  MAIN. 

(1)  If  §  (control  Q)  is  typed  by  the  user  while  the  "user 
monitor"  is  waiting  for  input  from  the  user,  a  jump  to 
NICBUG  is  made.  (Presumably  it  is  loaded  when  the  other 
modules  are  loaded.) 

(2)  If  S  is  typed  under  the  same  circumstances,  the  current 
operation  is  stopped  and  CAMERA  MAIN  is  restarted  (and 
MODE?-  is  typed) .  This  is  the  usual  escape  for  a 
mistyped  character. 

(3)  If  any  character  is  typed  when  the  "CTL  monitor"  is 
waiting  for  input  from  the  CTL,  the  program  aborts  to 
NICBUG. 

(4)  In  mode  3,  “z  must  be  typed  to  escape  from  the  "no  find" 
condition,  i.e.,  if  the  file  name  given  by  the  user  does 
not  exist  on  the  Comm-Stor  diskette. 


COMl ,  COM2,  COM4,  COM5,  COM6 

These  5  subroutines  are  the  counterparts  to  the  5  command  sub¬ 
routines  currently  in  CTL.  The  flow  of  control  is  from  NIC 

COMn  to  CTL  COMn  as  follows: 

(a)  In  the  main  program,  e.g.,  CAMERA  MAIN,  insert  appropriate 
parameters  in  the  command  table  (see  Table  6  for  the 
structure  of  this  table  and  what  parameters  are  needed  for 
the  various  commands. 

(b)  Insert  the  command  number  in  the  first  table  location. 

(c)  Call  the  appropriate  NIC  command. 

(d)  Within  the  NIC  command,  the  first  step  is  usually  to  pass 
the  command  table  to  CTL  using  a  subroutine  called  WCTL. 

(e)  "Close"  this  operation  by  calling  the  NIC  "CTL  monitor". 

(f)  Perform  whatever  operations  are  required  by  this  command. 

(g)  "Close"  the  command  by  again  calling  the  NIC  "CTL 
monitor". 


Miscellaneous  Subroutines 


The  following  auxiliary  subroutines  are  imbedded  within  SEGl. 


COMSTO 

FILEQ 

TYPEl 

NIB 


ECHOl 

SCTL 


read  characters  from  Comm-Stor  and  look  for  Z  for 
end-of-f ile. 

type  message  "FILE  NAME?-". 

converts  a  4  bit  (nibble),  left  justified,  to  8 

bit  NIC  ASCII  and  type  it.  (E.g.,  1010  .  => 

301 g  =  typed  "A".) 

packs  up  to  5  user  typed  ASCII  hex  characters  into 
a  NIC  word  as  4  nibbles  per  character.  These  are 
left  justified,  zero  fill.  In  addition,  the  num¬ 
ber  of  nibbles  (determied  by  CR)  packed  is 
returned. 

echoes  user  typed  characters  (via  ECHO)  and  sets 
the  byte  counter  in  PAKF  to  1  on  the  reception  of 
CR. 

sends  bytes  from  NIC  to  CTL  with  two  possible 
modes:  (1)  as  it  appears  in  the  accumulator  (ACC); 
(2)  adding  60  octal  to  the  value  in  ACC.  This 
changes  binary  integers  to  ASCII  integers. 


SEG2  (ERMON) 

This  segment  contains  auxiliary  subroutines  directly  related 
to  the  transmission  of  data  between  NIC  and  CTL. 


ERROR  -  Under  certain  conditions,  CTL  can  detect  a  bus 

error.  Whenever  this  occurs,  rather  than  complete 
a  command,  a  jump  is  made  to  a  CTL  error  routine 
which  is  "matched"  by  ERROR  in  NIC.  An  error  is 
signaled  to  MONITOR  (see  below)  throuqh  the  9th 
bit  (the  service  bit)  which  is  set  on  error.  The 
CTL  error  routine  sends  a  status  byte  and  the  2 
byte  program  counter  (PC)  of  the  subroutine  which 
incurred  the  error.  (NIC)  ERROR  prints  the  status 

and  DC  bytes,  the  number  of  the  command  being  exe¬ 
cuted  and  the  NIC  program  counter  associated  with 
the  error. 

ERROR  jumps  to  the  DEMON/II  operating  system  uoon 
completion. 

MONITOR  -  Reads  data  into  NIC  from  CTL.  It  also  looks  for 

the  service  bit  and  jumps  to  ERROR  when  it  occurs. 
In  addition,  it  monitors  the  console  (TTY)  for 
input  and  jumps  to  NICBUG  when  an  input  is 
detected. 

-  Transfers  a  block  of  unpacked  data  from  NIC  to 
CTL.  This  subroutine  is  used  mainly  to  transfer 
the  command  table  from  NIC  to  CTL. 


WCTL 
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RCTL  -  Used  by  ERROR  to  read  bytes  from  CTL  to  NIC  since 
MONITOR  cannot  be  used  here. 

CTLTST  -  This  subroutine  written  by  Dave  Wright  at  the 

University  of  Illinois,  is  the  mate  to  his  "boot" 
program.  It  can  be  used  to  read  or  write  data 
into  the  various  CTL  ports.  By  using  CTLTST,  it 
is  possible  to  direct  all  bus  operations  (very 
inefficiently)  directly  from  NIC  rather  than 
indirectly  through  resident  CTL  modules.  It 
should  be  pointed  out,  however,  that  with  this 
algorithm  it  is  not  possible  to  read  the  port 
(08H)  which  contains  the  TCI  status  bit. 

ECHO  -  Input  and  echo  console  input.  Checks  for  escape 
characters  G  and  Q. 

VALID  -  Transforms  hex  ASCII  (NIC)  to  NIC  binary,  with 
error  exit  for  non-valid  characters. 

HEXT  -  Right  justified  8  bit  subword  as  two  hex  charac¬ 
ters. 

SEG3  ( IOSUB ) 

This  segment  contains  tne  I/O  subroutines  used  for  storing 

information  on  the  disk.  Use  is  made  of  the  DEMON/II  modules  ! 

DIRFUN  for  directory  manipulations  and  DISK  for  actually  read¬ 
ing  and  writing  the  disk.  (DEMON/II  is  the  disk  operating 

system  supplied  by  Nicolet.) 

OPENW  -  Opens  a  file  for  write  by  locating  the  next 

available  space  (given  the  size  of  the  file  to  be 
stored)  or  the  first  track  after  the  last  file 
stored. 

OPENR  -  Opens  a  file  for  read  by  returning  the  starting 
track  and  file  size. 

CLOSE  -  Closes  a  file  just  written  by  adding  the  file  name 
and  other  parameters  to  the  directory. 

WRITE  -  Write  one  or  more  records  from  the  buffer  to  the 
disk  (here  a  record  is  one  track). 

READD  -  Read  one  or  more  records  from  the  disk  to  the 
buffer  (assumed  to  start  at  address  100000) . 

DIRFIN  -  Swap  locations  3000-7600  for  directory  operations 
(reads  directory  into  core). 

DIROUT  -  The  opposite  swap  to  DIRFIN. 

SEG4  ( PACK ) 

This  segment,  for  the  most  part,  contains  subroutines  which 

are  involved  in  the  packing  and  unpacking  of  data.  , 

PRTOCT  -  Prints  the  octal  value  of  the  contents  of  ACC. 


UNP 


-  Unpacks  packed  ASCII  text  and  prints  it.  (Here 
one  word  contains  3,  6  bit  characters,  right 
justified.)  This  is  used  extensively  to  print 
messages  which  are  stored  using  the  TEXT  pseudo-op 
in  the  Disk  Editor. 

TYPE  -  Type  one  character.  (This  is  a  4  line  routine 
used  by  many  other  modules. ) 

CRLF  -  "Prints"  carriage  return,  line  feed. 

UNPF  -  Transfers  (and  possibly  unpacks)  data  from  core  to 
another  location  via  a  subroutine,  the  address  of 
which  is  passed  to  UNPF.  The  packed  data  can  be 
either  5  nibbles/word  or  2.5  bytes/word. 

PAKF  -  This  is  the  inverse  of  UNPG  except  nibble  packing 
is  not  done.  (See  DEC  for  this.) 

PKR  -  This  is  the  inverse  of  UNP  except  that  it  packs 

characters  into  2  words  only.  It  is  used  mainly 
to  store  file  names  from  characters  typed  by  the 
user. 

SEG5  (TEKX) 

This  segment  contains  the  three  major  subroutines  used  with 
mode  3  for  transfer ing  "WHEX"  files  stored  on  Comm-Stor  to 
packed  Z-80  machine  code  files  for  use  in  CTL. 

DEC  -  Transforms  (in  place)  a  packed  (2.5  bytes/word) 
ASCII  hex  string  to  packed  nibbles  (5  nibbles/ 
word).  This  a  a  highly  "subroutine  interactive” 
module  wherein,  the  state  of  the  subroutine  can  be 
observed  on  exit. 

NIBBIN  -  Converts  packed  BCD  or  BCH  (binary  coded  hexadeci¬ 
mal)  to  binary. 

TEKHEX  -  Converts  a  Tektronix  Hex  file  (stored  in  2.5 

byte/word  packed  form  in  NIC)  into  the  binary  file 
(5  nibbles/word)  to  be  used  by  CTL.  (Note  that 
when  the  file  is  read  into  CTL  it  is  unpacked  -  2 
nibbles  at  a  time  are  passed  to  CTL.)  The  trans¬ 
formation  is  mainly  that  of  stripping  off  the 
header  and  trailer  information  and  doing  a 
checksum  on  the  remainder. 

SEG6  (MISCL) 

This  segment  contains  various  "miscellaneous"  subroutines. 

NICFIL  -  Creates  a  file  by  transfering  data  from  the  buffer 
(starting  at  100000)  onto  the  disk  and  adding  the 
file  name  to  the  directory.  That  is,  the  OPENW, 
WRITE  and  CLOSE  ODerations  are  done.  This 
subroutine  should  be  used  only  if  the  complete 
file  can  be  stored  in  the  buffer  (8192  20  bit 
words) . 


SEARCH 

ZERTAB 

MULTP 

DIVDE 

SENDF 

GETFIL 


Search  and  replace  the  contents  of  the  camera 
table. 

Zeroes  the  command  table. 

Integer  multiply  two  20  bit  values  and  place  the 
low  order  bits  in  ACC.  The  high  order  bits  are 
stored  in  the  MQ  (multiplier-quotient)  register. 
Integer  divide  either  a  40  bit  or  20  bit  value  by 
a  20  bit  value  to  obtain  a  20  bit  value  plus 
remainder.  Note  that  DIVDE  is  designed  to  follow 
MULTP  but  can  be  used  alone  provided  that  MQ  is 
set  to  zero  first. 

Prints  the  contents  of  ACC  (assumed  to  be  a  deci¬ 
mal  or  octal  integer  number)  after  conversion  to 
ASCII  by  adding  260  octal,  or  as  two  ASCII  hexa¬ 
decimal  characters.  In  addition,  carriage  return, 
line-feed  is  done  after  a  user  specified  number  of 
bytes  have  been  printed. 

Obtains  a  file  and  stores  it  in  the  buffer  area 
(the  inverse  of  NICFIL) . 
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The  following  is  a  short,  annotated  list  of  references  containing 
information  specific  to  topics  discussed  in  the  body  of  this 
report  or  in  the  appendices. 

(1)  Z-80 


There  are  numerous  references  describing  the  Z-80  uP  and  its 
programming. 

Mostek  Corp. ,  1979  Microcomputer  Data  Book,  o. 75-164. 

This  reference  contains  a  detailed  technical  descrip¬ 
tion  of  the  Z-80  (and  Z-80A) ,  a  listing  of  OP  codes  in 
"Zilog  mnemonics",  and  some  programming  examples. 

Barden,  W. ,  The  Z-80  Microcomputer  Handbook,  Howard  W.  Sams 
&  Co.,  Inc.,  1978. 

Discusses  Z-80  hardware,  software  and  some  Zilog  Z-80 
Microcomputers. 


(2)  8291/8292/8293  (8291-set) 

Intel  Corp.,  Peripheral  Design  Handbook,  Aug.  1980. 

8291  p.1-199  to  1-224 
8291  p. 1-225  to  1-238 
8293  p. 1-239  to  1-251 

Using  the  8292  GPIB  Controller  p.2-187  to  2-239 

This  is  the  reference  used  for  the  "8291-set"  during 
design  and  implementation  of  the  CTL.  All  that  is 
"known"  about  this  chip  set  is  contained  in  this 
reference. 


(3)  GPIB  (IEEE-488) 

IEEE,  IEEE  Standard  Digital  Interface  for  Programmable 
Instrumentation,  1980.  (Available  from  IEEE  Service  Center, 
445  Hoes  Lane,  Piscataway,  NJ  08854.) 

This  is  the  official  American  standard  for  the 
interface.  It  is  quite  technical  and  difficult  to 
comprehend  on  first  reading. 
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Philips,  N.V.,  Digital  Instrument  Course,  Part  4  IEC  Bus 
Interface,  N.V.  Philips  Gloeilampenf abr iken.  Test  and 
Measuring  Dept.,  Eindhoven,  The  Netherlands.  Publication 
No.  9498.829.00311  ($8.00). 

This  is  a  readable  discourse  on  the  GPIB.  (Note  that 
the  European  equivalent  to  the  IEEE-488  standard  is  the 
IEC  625-1.  It  differs  from  the  IEEE-488  essentially 
only  in  the  connector  type  used.) 

Hewlett-Packard,  Tutorial  Description  of  the  Hewlett- 
Packard  Interface  Bus. 

This  is  an  elementary  tutorial  on  the  GPIB  (which  HP 
calls  HP-lB ) .  It  contains  a  quite  complete  and 
up-to-date  bibliography. 


(4)  Nicolet  1080 

Nicolet,  Programming  the  Nicolet  1080  Stored  Program 
Computer,  NIC-80/S-71 11-M.  Nicolet  Instrument  Corp.,  5225 
Verona  Rd.,  Madison,  WI  53711. 

This  is  the  standard  source  of  information  on 
programming  the  1080  in  assembler  language. 

Nicolet,  DEMON/ II  Disk  Executive  Monitor  for  the  Nicolet  294 
Disk  System,  1973. 

Describes  the  d.'.sk  storage  system  and  software  avail¬ 
able  for  reading  and  writing  the  disk  as  well  as  some 
simple  utility  programs  such  as  STORE  file  and  LOAD 
f  ile. 

Nicolet,  Integrated  Monitor  Package  for  DEMON/II,  1974. 
Describes  higher  level  utility  programs  such  as  the 
Disk  Editor,  Disk  Assembler  and  Disk  Loader. 

Nicolet,  Programmed  Data  Transfers,  NIC-80/X-7113-D. 

This  Nicolet  document  descirbes  how  to  interface  to  the 
Nicolet  1080  via  the  80  pin  I/O  connector. 


(5)  Hamamatsu  CPIB  Interface 

Hamamatsu,  M999-04  General  Purpose  Interface  Bus.  An 
IEEE-488  Standard  Interface  for  the  C1000  Camera,  1977, 
Hamamatsu  Systems,  Inc.,  332  Second  Ave.,  Waltham,  MA  02154. 
This  reference  provides  the  GPIB  message  protocol  used 
by  the  Hamamatsu  interface  and  describes  the  Interface 
functions  which  have  been  implemented. 


APPENDIX  A  -  CTL  Hardware 

(a)  Schematic 

(b)  Component  Layout 

(c)  Wire-Run  List 


Cu.viPCOENT  SIDE  LAYOUT  PAPER 


Wire-Run  List 


A1P1-A1P4-A1P14-VCC 

A1P2-A1P6 

A1P3-D2P2 

A1P5-D2P3-D2P5 

AlP7-Gnd 

A2P1-A2P4-A2P10-A2P13-A3P1-A3P4-A3P10-A3P13-A4P1-A4P5-B10P13 

A2P2-B3P2 

A2P3-NICBUS  1 

A2P5-B3P5 

A2P6-NICBUS  3  ? 

A2P7-Gnd 
A2P8-NICBUS  7 
A2P9-B3P9 
A2P11-NICBUS  5 
A2P12-B3P6 
A2P 14-Vcc 


A3P2-B3P12 
A3P3-NICBUS  9 
A3P5-B3P15 
A3P6-NICBUS  11 
A3P7-Gnd 
A3P8-NICBUS  15 
A3P9-B3P19 
A3Pll-NICBtiP  13 
A3P12-B3P16 
A3P14-VCC 

A4P2-B4P7 
A4P3-NICBUS  17 
A4P4-B2P13-B6P1-B8P8 
A4P6-NICBUS  66 
A4P7-Gnd 
A4P8-A11P2 

A4P9-A4P10-A4P11-A11P3 

A4P12-A4P13-C11P3-D2P6 

A4P14-VCC 


X' 
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A5P1-C9P11 

A5P2-A11P12-B2P12-B3P3-B4P12-B5P2-C11P12 
A5P3-NICBUS  2 
A5P4-NICBUS  4 

A5P5-A11P13-B2P14-B3P4-B4P5-B5P3-C11P13 
A5P6-A11P14-B2P16-B3P7-B5P4-C11P14-D4P10-X3P13 
A5P7-NICBUS  6 
A5P8-NI CBUS  8 

A5P9-A11P15-B2P18-33P8-B5P5-C11P15-X3P11 
A5P1 0-G  nd 

A5P11-B9P9-B10P11-D10P11 

A5P12-A1 1P16-B  2P9-B3P1 3-B4P4-B5P6-C1 1P16-X3P9 
A  5P13-NICBUS  10 
A4P1 4-NICBUS  12 

A5P15-A11P17-B2P7-B3P14-B5P7-C11P17-X3P7 
A5P16-A11P18-B2P5-B3P17-B5P8-C11P18-X3P5 
A  5P17-NICBUS  14 
A5P1 8-NICBUS  16 

A5P19-A11P' 9-32P3-B3P18-B5P9-C11P19-X3P3 
A5P20-VCC 

A7P1-C9P3 

A7P2-B4P9-D4P10 

A7P3-B6P10-D9P5-D10P2-D10P6 

A7P4-D4P2-D4P5 

A7P5-C11P6 

A7P6-B6P12 

A7P7-Gnd 

A7P8-B3P11 

A7P9-B8P4-B8P13-C9P6 
A7P10-B10P11 
A7P11-NICBUS  58 
A7P12-D10P12 
A7P13-D4P8 
A  7  P 1 4  -V  cc 

A9P1-NICBUS  48 

A9P2-NICBUS  46 

A9P3-A10P2 

A9P4-A10P4 

A9P5-A10P1 

A9P6-B9P1 

A9P7-Gnd 

A9P8-B10P9-B10P12 

A9P9-B9P4-B9P5 

A9P10-A9P13-B9P2 

A9P11-A10P12-B10P5 

A9P12-B9P6 

A9P14-VCC 


A10P3-NICBUS  56 
A10P5-NICBUS  52 
A10P6-NICBUS  50 
A10P7-Gnd 

A10P8-A10P13-C11P4-D3P11 

A10P9-B10P10 

A10P10-B8P3-B8P11 

A10P11-B9P10-B10P8 

A10P14-VCC 

A11P1-A12P25-C12P12 

A11P4-B4P1-C8P26-D3P10 

Al 1P5-A1 1P2 6-All P40-VCC 

A11P6-D4P6 

AllP7-AllP20-Gnd 

A11P8-C11P9-D9P11-D10P5 

A11P9-C3P5-C4P5-C11P21-D5P3-X1P5-X2P5-C6P8 

A11P10-C3P10-C4P10-C11P10-D9P13-D10P3-X1P10-X2P10-X3P12 

M1P21-A12P8-C11P27 

A11P22-A12P11 

A11P23-A12P5-C11P24 

A11P24-A12P22-SW6 

A11P27-A12P21 

A11P29-A12P23-C12P11 

A11P31-A12P24 

A11P32-X3P10 

A11P33-X3P6 

A11P35-X3P4 

A11P36-X3P2 

A11P34-A12P7 

A11P37-C11P36-C12P24 

A11P38-A12P6-C11P25 

A11P39-A12P3-C11P39-C12P3 

A12P1-C11P1-C12P1 

A12P2-C11P2 

A12P4-C11P26-C12P4 

A12P9-C11P37 

A12P10-C11P38 

A12P12-IEEE488 

A12P13-IEEE488 

A12P15-IEEE488 

A12P16-IEEE488 

A12P17-IEEE488 

A12P1 8-IEEE488 

A12P19-IEEE488 

A12P26-VCC-A12P28 

A12P27-Gnd-Al2P14 
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31P1-D2P1 
81P7-Gnd 
B 1 P 1 4  -V  cc 


B2P1-B2P19-C9P8 

B2P2-RP1P3-SW2 

B2P4-RP1P4-SW3 

B2P6-RP1P5-SW4 

B  2P8-RP 1P6-5W5 

B2Pl0-Gnd 

B2P11-RP1P2-SW1 

B2P15-B8P6 

B2P17-C11P11 

B2P20-Vcc 

B3Pl-B3P10-Gnd 

B3P20-Vcc 

B4P2-36P13 

B4P10-B6P2 

B4P8-Gnd 

34P16-Vcc 

B5P1-C9P10-C9P13-D10P4-X4P2 

B5P10-Gnd-B5Pl9 

B5P11-C4P11-C8P13-C6P17-X1P11 

B5P12-C4P12-C6P16-C8P10-X1P12 

B5P13-C4P13-C6P15-C8P9-X1P13 

B5P14-C4P14-C6P14-C8P7-X1P14 

B5P15-C3P11-C6P12-C8P8-X2P11 

B5P1 6-C  3P1 2-C6P1 1-C8P1 2-X2P  12 

B5P17-C3P13-C6P10-C8P15-X2P13 

B5P18-C3P14-C6P9-C8P14-X2P14 

B  5P20-Vcc 

B6P3-B6P4 

B6P5-B6P11 

B6P6-B6P9 

B6P7-Gnd 

B6P8-D3P9 

B6P14-Vcc 

B8P1-B9P8 

B8P2-B8P12-B8P14-VCC 

B8P5-C8P16 

B8P7-Gnd 

B8P10-O10P13 
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ii 


B9P3-NICBUS  44 
B9P7-Gnd 
B9P11-NICBUS  60 
B9P12-B10P6 
B9P13-NICBUS  62 
B9P14-Vcc 

B10P7-Gnd 

Bl0Pl4-Vcc 

C3P1-C4P1-C6P2-D5P3-X1P1-X2P1-C9P5-C9P12 

C3P2-C4P2-C6P3-D5P9-X1P2-X2P2-D4P1 

C3P3-C4P3-C6P4-D5P11-X1P3-X2P3-D4P4 

C3P4-C4P4-C6P5-D5P13-X1P4-X2P4-X4P1 

C3P6-C4P6-C6P7-D5P5-X1P6-X2P6-C11P22 

C3P7-C4P7-C6P6-D5P7-X1P7-X2P7-C11P23-C9P2-C9P9 

C3P8-C4P8-X5P6 

C3P9-Gnd 

C3P15-C4P15-C6P22-D6P1 3-X1P15-X2P15 
C3P16-C4P16-C6P23-D6P7-X1P16-X2P16 
C3P17-C4P17-C6P1-D6P5-X1P17-X2P17 
C3P18-VCC 

C4P9-Gnd 
C  4  P 1 8  —V  cc 

C6Pl2-Gnd 

C6P1 8-D4P1 3-D6P9 

C6P19-D3P1-D6P9-X5P5 

C6P20-D3P1 3-D9P3 

C6P21-C6P24-Vcc 

C8P1-D6P10 

C8P6-C10P3-C10P11-2N3906 [C] 

C8P1 1-C8P1 7-C8P25-Vcc 

C8P19-D9P2 

C8P20-D9P4 

C8P21-D9P12 

C8P22-D9P14 

C8P24-D10P 10 

C8P27-C10P2 

C8P29-Gnd 

C8P30-D5P2 

C8P31-D5P4 

C8P32-D5P6 

C8P33-D5P14 

C8P34-D5P12 

C8P35-D5P10 

C8P36-D6P2 

C8P37-D6P4 

C8P38-D6P6 

C8P39-D6P14 

C8P40-D6P12 
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C9P1-C9P4-D10P1 
C9P7-Gnd 
C  9  P 1 4  -V  cc 

C10Pl-Cl0P10-C10Pl3-C10Pl4-Vcc 

C10P4-C10P9 

C10P5-C10P12 

C10P6-D10P9 

C10P7-Gnd 

C 1 0  P 1 4  -V  cc 

C11P5-D9P10 

Cl 1P7-C1 lP40-Vcc 

C11P8-D4P3 

CHP20-Gnd 

C12P28-C12P25 

C11P29-C12P23 

C11P30-C12P10 

C11P31-C12P9 

C11P32-C12P8 

C11P33-C12P7 

C11P34-C12P6 

C11P35-C12P5 

C12P12-IEEE  488 
C12P1 3-IEEE  488 
C12P14-Gnd 
C12P15-IEEE  488 
C12P16-IEEE  488 
C12P17-IEEE  488 
C12P18-IEEE  488 
C12P1 9-IEEE  488 
C12P21-IEEE  488 
C12P22-IEEE  488 
C12P26-C12P27-Cl2P28-Vcc 

D2P7-Gnd 

D2P14-VCC 

D3P2-X5P10 

D3P7-Gnd 

O3P8-D10P8 

D3P12-D4P12 

D3P14-VCC 

D4P7-Gnd 

D4P11-X5P4-X5P9 

D4P14-VCC 

D5Pl-D5P8-D5P15-Gnd 

D5P16-VCC 
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D6Pl-D6P8-D6Pl5-Gnd 

D6P16-VCC 


D9Pl-D9P8-D9Pl5-Gnd 

D9P16-VCC 

Dl0P7-Gnd 

D10P14-Vcc 

X1P8-X2P8-X5P8 
X1P12-G nd 
XlP24-Vcc 

X2Pl2-Gnd 

X2P24-VCC 

X3P1-X3P15-X4P3 

X3P8-Gnd 

X3P14-X3P16-VCC 

X4P7-Gnd 

X4P14-VCC 

X5P7-Gnd 

X5P14-VCC 


73 


GENERAL  PURPOSE  P1U  H  COPE  LISTING 


0000' 


0001 

0CO2 

0C03 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

003’ 

0034 


GKTERAL  PURPOSE  PROM  CODE  DAN  TKRPSTR A  7/19/80 


THIS  CODE  IS  DESIGNED  TO  BE  BUUF.p  INTO  A  ROM 
TO  PROVIDE  3  GENERAL  PURPOSE  ROUTINES  FOR  THE 
NIC-488/CTL  N1COLET-1080  TO  lEEE-4c(8  BUS  INTERFACE 
THE  3  COMMANDS  ARE: 

READ:  XXXX1XXX  FIN ARY 

ACCEPT  CC'  HAND  BYTE  FROM  NICP.  TREAT 
IT  AS  PORT  ADDRESS.  READ  THIS  PORT 
AND  SEND  CONTENTS  TO  NICP. 

WRITE:  XXXXOXXX  P ' NARY 

0.1MAND  BYTE  AS  POi  I  r.-RESS. 
'CCfclf  1EC0ND  BYTE  AS  Col..-’  ' 

.'-END  SECOND  BYTE  TO  PORT  AT.  <■ . 

IN  FIRST  BYTE  AND  SET  DONE. 

BOOT:  00000000  BINARY 

SET  DONE  TO  ACKNOWLEIKJE  RECEIPT  OF 
COMMAND.  ACCEPT  NEXT  1024  BYTES  1!. 

NICP  AND  STORE  IN  RAM  FROM  800H  TO 
BFFH.  TRANSFER  CONTROL  TO  NEWLY 
LOADED  PROGRAM  AT  800H.  STACK  IS 
DESTROYED. 

IF  USED  ON  THE  NICP,  CTRLI,  OR  CTRLC  PORTS, 

THE  1U  AD  AND  WRITE  COMMANDS  MAY  PRODUCE  HARMLESS 
BUT  INCORRECT  RESULTS,  SINCE  THESE  PORTS  ARE  MOD¬ 
IFIED  ON  EXECUTION  OF  THE  ROUTINES. 

THIS  CODE  ALSO  CONTAINS  AN  INITIALIZATION 
ROUTINE  THAT  TURNS  ON  ALL  8291  AND  8292  MASKS,  AND 
SETS  THE  DEVICE  ADDRESS  FROM  THE  USER-SETTABLE 
SWITCHES.  AFTER  RESET,  THE  CTL  WILL  BE  THE  ACTIVE 
CONTROLLER- IN-CHARGE,  AND  WILL  BE  IN  A  TALK-ONLY 
STATE.  THE  USER  MAY  FIND  IT  NECESSARY  TO  INITIAL¬ 
IZE  OTHER  REGISTERS  OUTSIDE  OF  THIS  ROUTINE  FOR  A 


0035 

0036 


SPECIFIC  APPLICATION. 


0037 

»  >  1 1 » 5 1 1 

t  t  t  t  9  9  t  t  i 

’>>>>»  J  i  »  »  *  y 

m  m  mi  1  m  mi  m  n  n  i 

003* 

; 

003° 

i 

0  0  DO 

ORG 

0 

0041 

t 

0042 

;  CTL 

COMMAND 

EQUATES 

(0001) 

0043 

DNEWT: 

EQU 

01 

;WAIT-ON-DOJ«E  COMMAND 

( 0006 ) 

0044 

BUSY: 

EQU 

06 

;  BUSY  BIT  IN  CTRLO 

(0002) 

0045 

TLRST: 

EQU 

02 

; TALK  ERA  I  i S"  VN v H  RESET 

(00F2) 

0046 

CRST: 

EQU 

0F2H 

; CONTROLLER  RES'  T 

75 


CO 47  ; 

0048  ;  CONTROLLER  PORT  ASo ICL KENTS 
(0010)  0049  C0NT0:  EQU  10H  ;PASE  ADDRESS  FOR  CONTROLLER 

(0011)  0050  CONTI:  FQU  C'OHTO+1 

0051  ; 

°0'2  ;  TALK FR/ LISTENER  PORT  ASSIGNMENTS 

(0020)  C  053  TLC:  EQU  20H  ;BASE  ADDRESS  FOR  TALKER  LSTENER 

(00211  0054  TL1 :  EQU  TLO+1 

(0022)  0055  TL2:  EQU  TLO+2 

(0023)  0056  TL3:  EQU  TLO+3 

(0024)  0057  TL4:  EQU  TLO+4 

(0025)  0058  TL5:  EQU  TLO+5 

(0026)  0059  TL6:  EQU  TLO+6 

(0027)  0060  TI.7:  FQU  TLO+7 

0061  ;  CTL  PORT  ASSIGNMENTS 

(0040)  0062  NICP: EQU  40H  ; BIDIRECTIONAL  NICOLET  INTERFACE 

(0080)  0063  CTRLO: EQU  80H  ;CONTROL  OUTPUT  PORT 

(00R0)  -.''64  CTRL I: EQU  8QH  ; CONTROL  INPUT  PORT 

w'65  ; 


0066 

;  CTL  MEMORY  LOCATIONS 

(0800) 

0067 

RAM: 

FQU  0800H 

; FIRST  ACTIVE  PAM  ADDRESS 

(ORFF) 

0068 

RAMTOP: 

EQU  OBFFH 

;LAST  ACTIVE  RAM  ADDRFSS 

0069 

0070 

0071 

COLD  START  ENTRY  PO^NT 

0072 

■SETS  UP  THE  STACK  AND  ENTERS  THE  COMM AN!  DECODER 

0073 

0000 

21FF0E 

007  4 

>TART:LD 

HL , RAMTOP 

;GET  TOP  ADDRESS  OF  RAM 

0003 

f'9 

0075 

LD 

SP,  HL 

; STORE  IT  IN  STACK  POINTER 

0004 

CE5J00 

0076 

CALL 

1NIT 

; INITIALIZE  GPIB  INTERFACE 

0077 

0078 

COMMAND 

DECODER 

0079 

0007 

DB80 

0080  C 

MND: IN 

A, ( CTRLI) 

; CHECK  CONTROL  INPUT  FOR 

BUSY 

0009 

CB77 

0081 

BIT 

BUSY, A 

; IF  BUSY,  DATA  IN  NICP 

000B 

28FA 

0082 

JR 

Z.CMND 

; NOT  BUSY, LOOK  AG/ IN 

000  D 

DB40 

0083 

IN 

A, (NICP) 

J  READ  VALID  COMMAND 

OOOF 

FEOO 

0084 

CP 

0 

; IF  COMMAND  =  0,  BOOT 

0011 

281C 

0085 

JR 

Z, BOOT 

; IF  BOOT,  EXECUTE 

0013 

CB5F 

0086 

BIT 

3, A 

; CHECK  READ/WRITE  BIT 

0015 

2807 

0087 

JR 

Z, WRITE 

; IF  0,  EXECUTE  WRITE 

0088  ; 

0089  ; 
nn on  • 

COMMAND: 

READ  PORT,  RETURN  CONTENTS  IN  NICP 

0017 

4F 

0091  READ-.LD 

C,  A 

;SET  UP  PORT  ADDRFSS 

0018 

ED7  8 

0092 

IN 

A,  ( C) 

;GET  PORT  CONTENTS 

001  A 

D340 

0093 

OUT 

(NICP) , A 

jSEND  CONTENTS  TO  NICP 

0G1C 

18E9 

0094 

JR 

CMND 

; LOOK  FOR  NEXT  COMMAND 

76 


0095 

i 

0096 

;  COMMAND: 

WRITE  NEXT  BYTE 

TO  PORT  ADDRESSED  IN  A 

0097 

t 

001 E 

4F 

0098  WRITE: LD 

C,  A 

SET  UP  PORT  ADDRESS 

COIF 

D340 

0099 

OUT 

( NICP) , A 

SET  DONE  WITH  COMMAND  BYTE 

0021 

DB80 

0100 

WR1:  IN 

A,  ( CTRLI) 

LOOK  FOR  NEXT  BYTE 

0023 

CB77 

0101 

BIT 

BUSY, A 

0025 

28FA 

0102 

JR 

Z,  WR1 

IF  NOT  BUSY, LOOK  AGAIN 

0027 

DB40 

0103 

IN 

A, (NICP) 

BUSY,  GET  NEXT  BYTE 

0029 

ED79 

0104 

OUT 

(C) ,  A 

SEND  AS  DATA  TO  PORT  (C) 

002B 

D340 

0105 

OUT 

(NICP) , A 

SEND  TO  NICP  TO  SET  DONE 

002D 

1 8D8 

0106 

JR 

CMND 

OK  FOR  NEXT  COMMAND 

0107 

! 

0108 

;  COMMAND: 

BOOT  IK  BYTES  FROM  NICP  TO  itAM  AND  EXECUTE 

0109 

• 

» 

002F 

D340 

0110 

BOOT: OUT 

(NICP), A 

i 

SET  DONE  WITH  '.OMMAND  BYTE 

0031 

210008 

0111 

LD 

HL, RAM 

! 

SET  UP  RAM  POINTER 

0034 

3E01 

0112 

LD  A.DNEWT 

; WAIT- ON-DONE 

0036 

0600 

0113 

LD  B,0 

;BYTE  COUNT  =  256 

0038 

0E40 

0114 

LD  C, NICP 

;NIC  1080  DATA  PORT 

003A 

1604 

0115 

LD  D,04 

;  #  OF  256  BYTE 

PAGES 

TO  READ 

003C 

D380 

0116 

OUT  (CTRLO), 

A 

; ENABLE  DONE  WAIT 

003  E 

DB80 

0117 

B00T1 : 

IN  A, (CTRLI) 

; READ  CONTROL  PORT 

0040 

CB77 

0118 

BIT  BUSY, A 

;LOOK  FOR  BUSY  BIT 

0042 

28FA 

0119 

JR 

Z, BOOT? 

t 

IF  NOT  SET  LOOK  AGAIN 

0044 

EDA2 

0120 

B00T2 : 

INI 

; READ  A  DATA  BYTE 

0C46 

KD79 

0121 

OUT  ( C) , A 

;SET  DONE  FLAG 

0048 

20FA 

0122 

JR 

NZ,B00T2 

NOT  LAST  BYTE, READ  ANOTHER 

004A 

15 

0123 

DEC 

D 

DECREMENT  PAGE  COUNT 

004B 

20F7 

0124 

JR 

NZ.B00T2 

NOT  LAST  PAGE,  READ  ANOTHER 

004D 

AF 

0125 

XOR  A 

;SET  A=0 

004  E 

D380 

0126 

OUT  (CTRLO), 

A 

; DISABLE  DONE  WAIT 

0050 

C30008 

0127 

JP  RAM 

; EXECUTE  AT  START  OF 

RAM 


ASM  TT  CONO  (TLSYM  TTLMAC  CTLMAIN  TTLSUBS  TTLSUBO  CTLSTOR 


Tektron  ix 

Z80 

ASM  V  3 . 

3 

****  Pass 

2 

Tek  t  ron ix 

Z80 

ASM  V  3 . 

3  NIC- 

488 -CTL  Page  1 

00002 

1. 1ST 

00003 

NOLIST 

MEG 

00004 

GLOBAL 

COM  1 , COM  2 , COM  3 , COM  4 , COM  5 , COM  6 , COM  7 

0000  5 

;  G  P I B 

CONTROLLER  SUBROUTINES  ADAPTED  FROM  I 

0000b 

PERIPHERAL  DESIGN  HANDBOOK,  AUG.  80, P  2-21 

00007 

t 

00008 

7 

00009 

8291  CONTROL  VALUES 

000  10 

000  11 

0020 

PRT91 

EQU 

20H  ; 8 29 1  Base  Port  # 

000  12 

$ 

00013 

t 

Req  #0 

data-in  &data-out 

10014 

00  20 

DIN 

EQU 

PRT91+0  ;Data-in  reg 

0001S 

00  20 

DOUT. 

EQU 

PRT91+0  ;Data-out  req 

000  16 

; 

000  17 

Peg  #1  Interrupt  1  Constants 

000  18 

00  21 

INTI 

EQU 

PRT91 + 1  ; INT  Req  1 

00019 

000  1 

BOM 

EQU 

1  ;BO  status  bit  no. 

00020 

000  1 

BIM 

EQU 

01  ; 9 1  BI  INTERP  Mask 

00021 

00  10 

KNUMK 

EQU 

10H  ; 9 1  END  INTERP  Mask 

00  0  22 

0080 

CPT 

EQU 

80H  ; 9 1  command  Dass  through  in 

00023 

t 

00024 

1 

00025 

t 

Req  #2 

Interrupt  2 

00026 

0022 

INT2 

EOU 

PRT91+2 

00027 

• 

000  28 

/ 

000  29 

t 

Req  #4 

Address  Mode  Constants 

000  30 

0024 

ADRMD 

EQU 

PRT91+4  ;91  address  mode  register  t 

00031 

0080 

TON 

EQU 

80h  ;91  talk  only  mode  &  not  li 

00032 

00  40 

LON 

EQU 

40H  r  9 1  listen  only  and  not  ton 

000  33 

000  1 

MODE  1 

EQU 

01  ;91  mode  1  addressinq 

000  34 

; 

000  35 

; 

Req  14 

( read) 

000  36 

0024 

ADRST 

EQU 

PRT91+4 

000  37 

000  2 

TA 

EQU 

2  ;Talk  active 

00038 

‘ 

000  39 

; 

00  0  40 

; 

Req  15 

(write)  Auxiliary  Mode  Reqister 

00041 

00  2  5 

AUXMU 

EQU 

PRT91+5  ;91  auxiliary  mode  register 

000  4  2 

0024 

CLKRT 

EQU 

24H  ; 9 1  4  Mhz  clock  input 

10043 

0003 

FNHSK 

EOU 

03  ;91  finish  handshake  comman 

00044 

000  F 

VSCMD 

EQU 

0PH  ; 9 1  Valid  command  pass-thro 

78 


00045 

0006 

SEOI 

EQU 

06H 

;91  send  EOI 

00046 

0080 

AXRA 

EQU 

80H 

;91aux.  req  A  pattern 

00047 

000  2 

HOEND 

EQU 

2 

;91  hold  off  handshake  on  e 

00048 

0008 

EOIS 

EQU 

8 

;91  output  EOI  on  EOS  sent 

10048 

0004 

EDEOS 

EQU 

4 

?91  end  on  EOS  received 

00050 

00A0 

AXRB 

EQU 

0A0H 

;Aux.  req.  B  pattern 

00051 

0001 

CPTEN 

EQO 

0 1H 

{Command  pass-through  enabl 

00052 

? 

00053 

7 

Reg  #5 

(read) 

00054 

0025 

CPTRG 

EQU 

PRT91+5 

{Command  Pass-through  ?Reg 

** 
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00055 

0005o 

00057 

l 

i 

Reg  #6 

Add  ress 

0/1  reg.  constants 

10058 

0026 

ADR0  1 

EQU 

PRT91+6 

00059 

0060 

DTDL1 

EQU 

6  0H 

{Disable  major  talker  $  lis 

10060 

00E0 

DTDL2 

EQU 

0E0U 

{Disable  minor  talker  &  lis 

10061 

00062 

00063 

t 

J 

Reg  1 7 

EOS 

Character  Register 

10064 

0027 

EOSR 

EQU 

PRT91+7 

00065 

00066 

00067 

# 

8292 

CONTROL 

VALUES 

00068 

00069 

000  7  0 

00  10 

PRT92 

EQU 

10H 

; 8298  Base  Port  # 

00071 

00072 

0010 

INTMR 

EQU 

PRT92+0 

; 9 2  INTRP  Mask  Reg 

00073 

00A0 

I NTM 

EQU 

0A0H 

{TCI 

000  74 
00075 

0010 

ERRM 

EQU 

PRT92+0 

;92  error  mask  register 

100  76 
00077 

0010 

EH FLAG 

EQU 

PRT92+0 

;error  flag  pseudo-register 

100  78 

0002 

T0UT2 

EQU 

02 

;92  time  for  standby 

10079 

0004 

T0UT3 

EQU 

04 

;92  time  out  for  TC 

00080 

00081 

00  10 

TO  REG 

EQU 

PRT92+0 

;92  time  out  pseudo-reg iste 

00082 

00  7 F 

TMOUT 

EQU 

7  FH 

;Time  out  byte  for  TOREG 

00083 

00084 

00  11 

CMD92 

EQU 

PRT92+1 

;92  Command  Register 

10085 

00  11 

1NTST 

EQU 

PRT92+1 

;92  Interrupt  Status  Reqist 

10086 

0002 

IBFBT 

EQU 

2 

;Input  Buffer  full  bit 

100  87 

0020 

SRQBT 

EQU 

20H 

l SRQ  bit 

10088 

0040 

ERRBT 

EQU 

40H 

; ERR  bit 

10089 

00090 

0010 

CLRST 

EQU 

PRT92+0 

92  Controller  Status  pseudo 

00091 

0008 

SYCS 

EQU 

08H 

{Control  Switch  Status 

100  92 

0040 

CABT 

EQU 

40H 

.•Controller  active  bit 

10093 

00044 

00  10 

TOST 

EQU 

PRT92+0 

,•92  time  out  pseudo-reg  i  ste 

00045 

00096 

00  10 

BUSST 

EQU 

PRT92+0 

{92  GPIB  status  pseudo-regi 

00097 

0008 

SYCBT 

EQU 

08H 

{SYC  status  bit 

1  00  98 
00099 

[ 

8292 

OPERATION  COMMANDS 

00  100 

00  F2 

RSET 

EQU 

0F2H 

{ Reset 

10101 

00F3 

RSTI 

EQU 

0  F3H 

{reset  interrupts 

10102 

00F6 

GTSB 

EQU 

0  F6H 

{Goto  standby 

80 


0010J  00F9  ABORT  EQU 

00104  00  FC  TCASY  EQU 

00105  00 FD  TCSY  EQU 

00106  00  FA  TCNTR  EQU 

00107  ; 


0F9H  jlnterface  clear 

0FCH  ; take-control  asynchronousl 

0FDH  ;T ake  control  syncronously 

0FAH  ;Take  control  (receive  cont 


81 
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00108 

• 

8292 

UTILITY  COMMANDS 

00109 

00110 

00E1 

t 

WTOUT 

EQU 

0E1H 

;write  to  time  out  register 

10111 

0084 

RERE 

EQU 

0E4H 

;read  error  flag  register 

10112 

00E6 

RCST 

EQU 

0  E6H 

jread  Controller  Status  Reg 

00113 

00E7 

RBST 

EQU 

0E7H 

;read  GPIB  status  pseudo-re 

00  114 

000  B 

IACK 

EQU 

0BH 

;Interrupt  acknowledge 

00115 

00116 

§ 

t 

8292 

INTERRUPT  PORT 

00117 

00118 

0008 

PRTF 

EQU 

0811 

00119 

0  001 

TCI  F 

EQU 

01H 

;Task  complete  interrupt 

10120 

00121 

GPIB 

MESSAGES 

(COMMANDS) 

00122 

00123 

000  l 

MDA 

EQU 

1 

;Mv  device  address  is  1 

00124 

004  1 

MTA 

EQU 

MDA+40H 

;My  talk  address  is  1  ("A”) 

00125 

00  21 

MLA 

EQU 

MDA+20H 

;My  listen  address  is  1  ("1 

00126 

00  3 E 

UNL 

EQU 

3  FH 

;Universal  unlisten 

00  127 

00  5  F 

UNT 

EQU 

5FH 

;Universal  untalk 

00128 

0018 

SPE 

EQU 

18H 

;Serial  poll  enable 

00  129 

00  19 

SPD 

EQU 

19H 

;Serial  poll  disable 

00  1  30 

0009 

TCT 

EQU 

9 

rtake  control  (pass  control 

00131 

001  32 

001  33 

00  1  34 
00135 

0080 

t 

f 

t 

CTRL  I 

CTL 

EQU 

PORTS 

8011 

;CTL  8-bit  control  input 

10136 

0001 

ASR0 

EQU 

1 

;address  switch  1 

00  137 

0002 

ASR1 

EQU 

2 

.•address  switch  2 

00  138 

0004 

ASR2 

EQU 

4 

.■address  switch  3 

001  39 

0008 

ASR3 

EQU 

8 

^address  switch  4 

00140 

0010 

ASR4 

EQU 

10H 

; address  switch  5 

00  14  1 

0005 

DONE 

EQU 

5 

DONE  status  bit 

10142 

0006 

BUSY 

EQU 

6  ; 

BUSY  status  bit 

10143 

0080 

INT8ST 

EQU 

8011 

;8291  interrupt  status  bit 

10144 

00  145 

0080 

CTRI.O 

EQU 

8  0H 

; CTL  4 -bit  control  output 

1014b 

000  1 

ONEWT 

EQU 

1 

jenable  WAIT-ON-DONE 

00  147 

0002 

SRVC 

EQU 

2 

.•set  service  reauest  bit 

10148 

0004 

DNECl. 

EQU 

4 

.•DONE  clear  pulse 

00  1  49 

00  10 

DMAWT 

F.QU 

1  011 

.•enable  WAIT-ON-DONE 

00150 

00  1  51 

I 

t 

NICP 

PORT  (IN/OUT  TO  NICOLET) 

001  52 
0015  1 

0040 

NICP 

EQU 

4011 

00154 

00  155 

* 

MISCELLANEOUS  DEFINITIONS 
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00  161 
00  162 
00  163 
00164 
30  165 
00  166 
00  167 
00168 
00  169 
00  170 
00  171 
00  1  72 
00173 
00  174 
00175 
00  1  76 
00  177 
00  1  78 
00  179 


JANUARY  27,1981 


LAB'e?  1 


MACRO  DEFINITIONS 

MACRO  WAITO  ;wait  for  byte  out  to  bus 

IN  A, (INTI) 

BIT  BOM, A 

JR  Z,LAB'@' 

ENOM 


MACRO  WRREG  ; PEG , VALUE , (LABEL ) 

;  REG=reqister  to  write  to 

;  VALUE=va lue  to  write 

;  LA BEL=opt ional  jump  to 

t.n  A,' 2' 

OUT  (  '1 ' )  ,  A 

K  ASET  3 

IF  «=*#• 

J  R  '3* 


00  180 

ENDIF 

00  18  1 

ENDM 

00182 

00  1H  3 

MACRO 

CTLNIC 

0kJ  l  d  A 

;  WRITES 

BYTES  TO  NIC  FROM  CTL 

00  18  3 

C'Tl  1  0  '  IN 

A,  (CTRL!) 

00  13  6 

BIT 

DONE, A 

00  1  3  7 

JR 

NZ.CT1 

00  1  88 

OUTI 

00  189 

JR 

N  Z  ,  CT 1  ’  @  1 

00  190 

ENDM 

00  19  1 

00  192 

MACRO 

NICCTL 

00  19  i 

;  READS 

BYTES  FROM  NIC  TO  CTL 

00  194 

Nil  *  «a  '  IN 

A, (CTRLI) 

00  1  9  5 

BIT 

BUSY  ,  A 

00  19  b 

JR 

Z  ,N  I  l  '  0  * 

00  1  9  7 

INI 

00  198 

OUT 

(C)  ,  A 

00  199 

JR 

NZ,NI  l  '*»' 

00  2  00 

ENOM 

00201 

00202 

MACHO 

NICCTL!  ; READS  A  SINGLE  BYTE  FROM  N 

00  20  3 

N1 1  '0  '  IN 

A,  (CTRLI) 

00  204 

BIT 

BUSY  ,  A 

00  2  05 

JR 

Z ,N1 1 ‘g’ 

2  Wo 

IN 

A, (NICP) 

00  20  7 

LD 

0 ,  A 

30  208 

OUT 

(NICR) , A 
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00212 
00  ?  1  < 

JANUARY  30,1981 

00214 

00  2 1 S 

MAIN 

CONTROL  ROUTINE 

002  16 

00217 

PURPOSE  — 

This  is  the  CTL  excutive  routine  which 

00  218 

in  that  it  performs  commands  issued  by  NIC 

00214 

wait 

state  (waits  for  input  from  NIC)  after 

00  22  0 

If  a 

command  can  not  be  completed  because  o 

00  22  1 

considered  fatal),  the  executive  returns  to 

00  222 

an  error  subroutine  which,  among  other  thi 

00  22  .1 

indicate  abnormal  command  termination. 

00  22  4 

Each 

command  is  started  by  NIC  by  transferr 

00  22  ') 

block 

from  NIC  to  CTL. The  first  byte  in  thi 

00  22  b 

numbe  r . 

00  22  7 

0800 

> 

ORG 

8 00 H  ;GPPROM  jumps  here. 

00  228 

0  800 

CD 6 1 09 

> 

CALL 

INIT 

00  22  9 

080  3 

3  El  4 

WAIT 

LD 

A , 1 4H  (set  parameters  for  NICI  ta 

00230 

0800 

32A8013 

> 

LD 

(NDAT)  ,  A 

00  231 

0808 

2  19D0P 

LD 

HL, TABLE  (Starting  address  o 

00  232 

0  8  08 

22  AA  013 

> 

LD 

(DAT ADD)  , H  L 

00233 

080E 

2 11708 

•> 

LD 

HL, WAITl 

00  234 

0811 

2  2  B  1 013 

> 

LD 

( RET ADD ) , H L  (normal  return  from 

00  238 

0814 

CDFE0A 

> 

CALL 

COM5  (transfer  table 

00  236 

0817 

2  10308 

> 

WAITl 

LD 

HL.WAIT 

00  23  7 

0  8  1  A 

22B  1013 

> 

LD 

( RET ADD ) , H L  (return  address  for 

00  238 

0810 

2  l  3C0 8 

> 

LD 

HL, START  (following  code  is 

00  2  Vi 

0820 

3A9O0H 

> 

LD 

A, (COMN) 

00  2  40 

0823 

4  P 

LD 

C ,  A 

00  24  1 

0824 

3AB30B 

> 

LD 

A, (LASTC) 

00  242 

0827 

139 

CP 

C 

00243 

0828 

FCO708 

> 

CALL 

M .ERROR 

00  2  44 

0  8  28 

79 

LD 

A  ,  C 

00  248 

0  6  2C 

A  7 

AND 

A 

00246 

0  8  2D 

FC 0708 

> 

CALL 

M, ERROR 

00  24  7 

08  30 

CC 0708 

> 

CALL 

Z  .ERROR 

00248 

0  8  33 

0  6  00 

LD 

0 , 0 

00  249 

08  30 

3D 

DEC 

A 

00  2  90 

08  36 

4  F 

LD 

C ,  A 

00201 

0  8  3  7 

8  7 

ADD 

A  ,  A 

00  2  02 

08  38 

8  1 

ADD 

A  ,C 

00  2  0  i 

08  *4 

4  !•' 

LD 

C ,  A 

00  2  >4 

08  iA 

09 

ADD 

HL,BC 

00  2  00 

08  JH 

r:4 

.1  P 

(HL) 

00  2  06 

0  8  3C 

CD2E0B 

.’TART 

CALL 

COM  1 

0n)  2  '>  7 

0  8  18 

COD  )  04 

CALL 

COM2 

<?0  2  46 

0842 

CD0000 

CALL 

COM  3 

00  2  09 

0840 

('1)6  ‘*0  A 

CALL 

COM4 

8b 


iSiwv  . 


00260  0848  CDFE0A  >  CALL  C0M5 
00261  084B  CD170B  >  CALL  C0M6 
00262  0 84E  CD0000  >  CALL  C0M7 
00263  0851  CD0000  CALL  C0M8 
*****  ERROR  074:  Undefined  symbol 
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***** 

00265 
00  2  66 
00  267 
00  26b 
00  269 
00  2  70 
00  2  7  J 
00272 
00  272 
00  274 
00  276 
00  2  76 
00  2  77 
00  2  78 
00  279 
00  2  5  0 
00  28  L 
00282 
00283 
00284 
00  288 
00  28  6 
00  287 
00  288 
00289 
00290 
00291 
00292 
0029  3 
00  294 
00295 
00  29  6 
00  29  7 
00298 
00299 


0854  C 170000  CALL 

ERROR  074:  Undefined  symbol 


COM  9 


ERROR  ROUTINE 

PURPOSE  —  When  a  fatal  error  occurs  in  performin 
a  call  to  ERROR  is  made.  ERROR  sets  the  SRV 
byte  and  the  program  counter  value  of  the  o 
to  NIC. 


ERROR 


0  8  51) 
0  8  6D 
0  8  5E 
0861 
0862 
086  3 
0866 
0867 
0  8  6A 
0  8  68 
0  8  6D 
0  8  6  E 


DB21 

57 

CU5709 

El 

54 

07  5  709 

55 

CD  5  7  0  9 
AF 
D380 
E  5 

C 14  2  09 


WRREG 

IN 

LD 

CALL 

POP 

LD 

CALL 

LD 

CALL 

XOR 

OUT 

PUSH 

JP 


;Set  the  SRVC  bit  f 


CTRLO.SRVC 
A, (INTI) 

0,  A 

CTLNIC1  ;send  status  to  NIC 
11 L 
D,H 

CTLNIC1 
D,L 

CTLNICl 
A 


;send  high  order  byte  of  th 


;send  low  order 
;  clea  r  SRVC 
(CTRLO)  ,  A 

HL  .‘return  stack  to  normal 

RETURN 


.JANUARY  18,1981 


LISLIST  ROUTINE 


PURPOSE  —  send  out  a 
ARGUMENTS—  reg  A  = 


list  of  listeners  or  a  single 
1  =>  talker  list 
0  =>  listener  list 


USES  register  A.B.DE 


00  100 

087  1 

4  7 

LISLIST 

LD  n 

0010  1 

0872 

A  7 

AND 

A 

00302 

087  1 

2  00  F 

JR 

NZ  ,1.111 

00  10  1 

0  875 

1A9E011 

LD 

A, (NLIST) 

00  )  04 

0878 

A7 

AND 

A 

00  1 05 

0879 

2  00  1 

JR 

N  Z  ,  L I  3 

00  106 

0870 

04 

r  nc 

» 

00  10  7 

087C 

1818 

JR 

L 1 4 

00  108 

0  8  7  E 

47 

LI  3  LD 

11,  A 

00  309 

0  87  F 

119F0B  > 

LD 

HE, LI  Si p 

00  1  10 

0  88  2 

180  1 

JR 

LI1 

n.A 


88 


00311  0884 
00312  0887 
00313  0889 
00314  088A 
00315  088B 


11A50B  > 

CB10 
1A 
A7 
2808 


LI11  LD 
LI  1  RL 

LI5  LD 

AND 
JR 


DE ,TALKP 
B 

A , (DE) 

A 

Z  ,LI2 


89 
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00  3  lb 

088  LI 

0320 

OUT 

(DOUT) , A 

00  3  17 

WAITO 

00  31b 

0895 

1  3 

L 1 2 

INC 

DE 

00  319 

0896 

10  FI 

LI4 

OJNZ 

L 1 5 

00320 

0898 

C9 

RET 

00321 

Afl  3?? 

00323 

00  324 

BYTBLK 

ROUTINE 

00  325 

00  326 

PURPOSE —  sets  up  registers  for  block  read  or  wri 

00327 

registers  set  are  B,E,HL 

00328 

register  C  should  be  set  by  the  caller  for 

00  329 

RETURNS — the 

Z-flag  is  set  if  NDAT  and  NDATB  =0 

00  330 

00  33  1 

0  899 

2  AAA  0B 

> 

BYTBLK 

LD 

HL, (DATADD) 

00  332 

089C 

3AA80B 

> 

LD 

A,  (NDAT) 

00  333 

0  891-' 

57 

LD 

D,  A 

00334 

00A0 

11301 

LD 

E,  1 

00  33  5 

0  8A2 

A7 

AND 

A 

00  336 

0  8  A  3 

2805 

JR 

Z,BY1 

00  33  1 

38A5 

47 

LD 

B  ,  A 

00338 

08A6 

3E0  1 

LD 

A  ,  1 

00  339 

08A8 

1806 

JR 

BY  2 

00  340 

08AA 

3AA90B 

> 

BY  1 

LD 

A, (NDATB) 

00  341 

0  HAD 

57 

LD 

D,  A 

00  34  2 

08AE 

0  6  00 

LD 

B,0 

00  34  3 

0  8B0 

5  F 

BY  2 

LD 

E ,  A 

00  344 

08B1 

7A 

LD 

A ,  D 

00  345 

0  8  B  2 

A2 

AND 

D 

00  346 

08B3 

C9 

RET 

/  /  /  •  t 

00  34  8 

00349 

T30UT  ROUTINE 

00  3  50 

00  351 

PURPOSE— tests  for  TOUT 3  errors  on  TCSY.If  such  a 

00  3  52 

it  does 

a  TCASY  with  possible  loss  of  data. 

00  3  53 

0  884 

OB  08 

T30UT 

IN 

A, (PRTF) 

00354 

08136 

E601 

AND 

TCIF 

00  3  55 

0  8B8 

2  0  FA 

JR 

NZ.T30UT 

00  3  56 

08BA 

OB08 

T32 

IN 

A, (PRTF) 

00  3  57 

0  8BC 

E6  0  1 

AND 

TCIF 

00  3  58 

08BE 

2  0  IB 

JR 

NZ,T33 

00  3  59 

08C0 

DB11 

IN 

A, ( INTST) 

00360 

08C2 

E6  40 

AND 

ERRBT 

00  361 

0  8C4 

28F4 

JR 

Z,T32 

00362 

08C6 

16FF 

LD 

D , 0FFH 

00  363 

08CH 

CDEB08 

> 

CALL 

WRIND 

90 


00364 

0  8CB 

16B6 

LD 

D,RCST 

00365 

08CD 

CDDC08  > 

CALL 

RDIND 

00  366 

0800 

E640 

AND 

CABT 

00367 

0802 

2007 

JR 

NZ  ,T33 

00368 

08D4 

3EPC  T34 

LD 

A ,TCASY 
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00369 

0806 

D311 

OUT 

(CMD92)  , A 

00370 

0  808 

CD4A09 

> 

CALL 

WAITX 

00371 

08DB 

C9 

T33 

RET 

00372 
00  373 

00  374 
00375 
00  376 
00  377 

SUBROUTINE  RDIND 

00  378 

PURPOSE  — 

read  8292  indirect  registers 

00  379 

ARGUMENTS 

—  reg  D  should  contain  the  utility  co 

00380 
00  381 

REVC 

,REERF 

, RINM  , RCST, RBST, RTOUT  or  RERM 

00382 

0  8DC 

DB11 

RDIND 

IN 

A,  (INTST) 

00383 

08OE 

E602 

AND 

IBFBT 

00384 

0  8E0 

20FA 

JR 

NZ  , RDIND 

00385 

08E2 

7A 

LD 

A,D 

00  386 

08E3 

D311 

OUT 

(CMD92)  , A 

00  387 

0  8E5 

CD4A09 

> 

CALL 

WAITX 

00  388 

08E8 

DB 1  0 

IN 

A, (PRT92) 

00  389 
00  390 
eie  391 

08EA 

C9 

RET 

00392 

00393 

SUBROUTINE  WRIND 

00  394 

PURPOSE  -- 

write  8292  indirect  registers  or  to  s 

00395 

ARGUMENTS 

—  reg  D  should  contain  WTOUT.WEVC  or 

00396 

reg  E  should  contain  a  value  to  be 

00397 

in  the  indirect  reg  (except  for  IAC 

00398 

0  8EB 

DB11 

WRIND 

IN 

A. (INTST) 

00  399 

08  ED 

E602 

AND 

IBFBT 

00400 

08EF 

20FA 

JR 

NZ, WRIND 

00401 

08F1 

7A 

LO 

A.D 

00402 

08F2 

D311 

OUT 

(CMD92)  , A 

00403 

08F4 

DB11 

WRl 

IN 

A,  (INTST) 

00404 

08F6 

E602 

AND 

IBFBT 

00405 

08F8 

20  FA 

JR 

NZ.WRl 

00  40  6 

08FA 

CB5A 

BIT 

3,D 

00407 

08FC 

200  9 

JR 

NZ,WR2  ;  if  IACK  this  is  all 

00408 

0  8FE 

7B 

LD 

A,E 

00409 

0  8FF 

D310 

OUT 

(PRT92) , A 

00410 

0901 

DB11 

WR3 

IN 

A,  (INTST) 

00411 

0903 

E602 

AND 

IBFBT 

00412 

0905 

20  FA 

JR 

NZ ,WR3 

00413 

0907 

C9 

WR2 

RET 

00414 

00415 

; ;  ?  * ; 

f ;  j  : ; ; 

f  »  »  1  »  l  J  1  M  »  f  »  f  f  »  »  »  »  M  »  1  M  »  r  f  »  »  M  M  »  »  1  » 

00416 

SUBROUTINE  T2IN 

00417  ;  PURPOSE  —  cheek  for  dat?  in  from  the  bus  and  to 
00418  ;  certain  actions  under  various  "time  o 
00419  ;  conditions 

00420  ;  ARGUMENTS  —  reg  D  should  contain  either  hex  01, 
00421  ;  indicating  DJNZ  time  out,  clear  SRO  or  get  statu 
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084  22 
00  423 
00424 
00425 
00  4  26 
00427 
004  28 
00  4  29 


after  a  time  out  respectively. 

—  T2  should  be  set  to  1  if  this  is  th 
data  in,  indicating  that  the  time  out  condition 
T2IN  will  set  T2  to  0.  While  T2  is  0  only  DZNZ  t 
is  used. 

--  reg  A  returns  the  INTI  status  bits. 


NOTE  —  Before  calling  T2IN,  do  an  EXX  then  set 


00430 

0908 

3ABA0B 

> 

T2IN 

LD 

A, (T2 ) t 

is  this  the  first  line  or  n 

00431 

090B 

0600 

LO 

B  <  0 

;B  is  used  in  the  DJNZ  loop 

00432 

0900 

58 

LD 

E,B 

;  E  holds  the  status  bits. 

00433 

090E 

A7 

AND 

A 

00434 

090F 

2827 

JR 

Z  ,T23 

;not  first  time 

00435 

0911 

AF 

XOR 

A 

.-set  to  not  first  time 

00436 

0912 

328A0B 

> 

LD 

(T2 )  ,  A 

00437 

0915 

DB21 

T21 

IN 

A, (INTI) 

00438 

0917 

B3 

OR 

E 

(collect  status  bits 

00439 

0918 

5F 

LD 

E,A 

00440 

0919 

A2 

AND 

D 

00  441 

091A 

2010 

JR 

NZ  ,T26 

(if  byte  is  in, we  are  done. 

00  44  2 

091C 

DBll 

T25 

IN 

A ,  ( INTST)  .-check  for  T0UT2  er 

0044  3 

091E 

E660 

AND 

ERRBT+SRQBT 

00444 

0920 

28F3 

JR 

Z.T21 

[if  no  error  then  wait  more 

00  44  5 

0922 

CB6A 

BIT 

5.D 

(if  bit  5  is  0  then  no  SRQ 

00  44  6 

;  is 

wrong 

00447 

0924 

CC5708 

> 

CALL 

Z, ERROR 

00  44  8 

0927 

CB4  2 

BIT 

0,D 

;if  bit  0  is  0,we  are  not  e 

; so  wait  for  SRQ 


00  4  50 

0929 

A2 

AND 

D 

00451 

092A 

28F0 

JR 

Z  ,T2  5 

00452 

0  92C 

16FF 

T26 

LD 

D ,  0  FF  H 

[Clear  all  SPI  flags 

00453 

092E 

CDEB0  8 

> 

CALL 

WRIND 

00454 

0931 

180C 

JR 

T24 

00  4  55 

0933 

A2 

T22 

AND 

D 

[wait  for  SRQ  or  BI  to  be 

00456 

0934 

28DF 

JR 

Z,T21 

00457 

0936 

1807 

JR 

T24 

00458 

0938 

DB21 

T23 

IN 

A, (INTI) 

[  DJNZ  or  BI  loop 

00  4  59 

093A 

B3 

OR 

E 

00460 

093B 

5F 

LD 

E.A 

00461 

093C 

A2 

AND 

D 

00462 

093D 

28F9 

JR 

Z,T23 

00463 

093F 

7B 

T24 

LD 

A,E 

[Status  bits  are  returned 

00464 

0940 

D9 

EXX 

[put  registers  in  "normal"  mode. 

00465 

0941 

C9 

RET 

00466 
004  67 

? 

00468 

t 

00469 

• 

• 

PSEUDO-SUBROUTINE  RETURN 

"1 


00470 

00471  0942  2AB10B 
00472  0945  Cl 
00473  0946  CD5709 
00474  0949  B9 


Returns  subroutines  to  RETADD  and  writes  a 


RETURN  LD 
POP 
CALL 
JP 


HL, (RETADD) 
BC 

CTLNIC1 

(HL) 
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00475 

004  76 

i  i  1  7  i 

inn 

nnnnnnnnnnn 

7  f  f  ?  M  ?  M  (  M  }  M  H 

00477 

SUBROUTINE  WAITX 

004  78 

PURPOSE  - 

-  wait  for  TCI 

00479 

094A 

DB08 

WAITX 

IN 

A, (PRTF) 

00480 

094C 

E601 

AND 

TCI  F 

00481 

094E 

2  0FA 

JR 

NZ ,WAITX 

00482 

0950 

DB08 

WX1 

IN 

A, (PRTF) 

00483 

0952 

E601 

AND 

TCI  F 

00484 

0954 

28FA 

JR 

Z  ,WX1 

00485 
00  486 

0956 

C9 

RET 

00487 

SUBROUTINE  CTLNC1 

00  488 

writes  a  single  byte  from 

CTL  to  NIC 

00489 

the 

byte  should  be  in  the 

D  register 

00490 

0957 

DB80 

CTLNIC1 

IN  A,  (CTRLI) 

00491 

0959 

CB6F 

BIT 

DONE, A 

00492 

095B 

2  0FA 

JR 

NZ ,CTLNIC1 

00493 

0  9  5D 

7A 

LD 

A,D 

00494 

095E 

D340 

OUT 

(NICP)  , A 

00495 

00496 

0960 

C9 

RET 

lilt} 
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80498 

00499 

00500 

00501 

00502 

00503 

00504 

00505 

00506 

00507 

00508 

00509 


JANUARY  18,1981 

IttiiliiiiiiliiiitiiiiiiiltittiiiiiSSSiSSSfSSSitS 
Initial izaton  routine  - 

sets  up  CTL  to  be  CTL.  If  the  SYC  switch  ( 
is  off  then  CTL  waits  to  be  put  in  charge  by  anot 
HP9835  calculator).  In  this  state,  with  the  curr 
nothing.  After  control  is  transfered  to  CTL,  it 
switch  were  on.  Note  that  this  initialization  ro 
action  by  a  "pre-initializer"  such  as  GPPROM  (Gen 
by  Don  Terpstra).  If  this  initializer  replaces  G 
functions  done  in  GPPROM  should  be  done  by  INIT. 


00510 

INIT 

WRREG 

00511 

0965 

0600 

LD 

00512 

0967 

10FE 

INIT0 

DJNZ 

00513 

WRREG 

00514 

096D 

16E7 

LO 

00515 

0  96F 

CDDC08 

> 

CALL 

00516 

0972 

E608 

AND 

00517 

0974 

2039 

JR 

00518 

WRREG 

00519 

WRREG 

00520 

WRREG 

00521 

0982 

DB21 

INITl 

IN 

00522 

0984 

E680 

AND 

00  5  23 

0986 

28FA 

JR 

00524 

0988 

DB25 

IN 

00525 

098A 

FE09 

CP 

00526 

098C 

2806 

JR 

00527 

INIT12 

WRREG 

00528 

0994 

DB24 

INIT11 

IN 

00529 

099  6 

E602 

AND 

005  30 

0998 

28F4 

JR 

00531 

WRREG 

00  5  32 

WRREG 

005  33 

WRREG 

005  34 

WRREG 

00535 

09AA 

CD4A09 

> 

CALL 

00536 

09  AD 

1 80C 

JR 

00  5  37 

INIT2 

WRREG 

00538 

WRREG 

005  39 

WRREG 

005  40 

INIT3 

WRREG 

00541 

WRREG 

00542 

WRREG 

00543 

WRREG 

00  5  44 

09CB 

16E1 

LD 

00545 

09CD 

1E7F 

LO 

CMD92.RSET 

B , 0  jwait  for  abort  to  go  out,e 
INIT0 

INWR, INTK  ;set  TCI  interrupt 

D , RBST 

RDINO 

SYC8T 

NZ , INIT2  ;go  to  immediate  co 

ADRMD , M0DE1  ;not  ton , mode , add  re 

ADR01.MDA 

AUXMD , AXRB+CPTEN  , enable  com 

A , ( INTl )  ;wait  here  for  TCT 

CPT 

Z , INIT1  ;if  not  TCT  or  my  a 

A,  (CPTRG ) 

TCT 

Z  ,  INI  Til 

AUXMD , VSCMD , INIT1  ;if  not  TCT 

A,  (ADRST) 

TA 

Z , INIT12 

ADR0 1 ,  DTD  LI  .-disable  talker/lis 

ADRMD  ,TON  ,-talk  only 

CM092,TCNTR  ,-  take  (receive) con tr 

AUXMD, VSCMD  , -continue  command  p 

WAITX 

INIT3  jrest  of  initialization  as 

ADR0 1 , DTDL1 

ADR0 1 , DTDL2 

ADRMD, TON 

AUXMD, CLKRT 

INTI  ,0 

INT2.0 

ERRM ,TOUT2+TOUT3 

D, WTOUT 

E. TMOUT 


97 


CALL 

RET 


WRIND 


f 


► 


00546  09CF  CDEB08 

00547  09D2  C9 

00548 

00549 

00550 


RECV  ROUTINE  (alias  COM2) 


! 
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80551 

{PURPOSE — Transfers  data  from  GPIB  to  CTL  (or  to  o 

00552 

{PARAMETERS  - 

0055  3 

(1)  no. 

of  listeners  (other  than  CTL) 

00554 

(2)  primary  address-first  listener 

10555 

(3  secondary  address-first  listener 

10556 

(4)  — second  listener 

10557 

(5)  — 

00558 

(6)  — 

third  listener 

10559 

(7) 

00560 

(8)  primary  address-talker 

10561 

(9)  secondary  address  -talker 

00562 

(10)  EOS  character,  (see  below) 

00563 

(11)  no 

.  of  data  bytes  to  receive 

00564 

(12)  no 

.  of  256  blocks  to  receive,  (see  bel 

00565 

(14)  starting  address  for  data  storage. 

00566 

00567 

■RETURNS  -  If 

(11)  and  (12)  are  both  0 , RECV  return 

00568 

data  in 

(12)  and  (11).  If  do  not  get  EOI  at 

00569 

or  if 

the  amount  of  data  received  does  not 

00570 

an  error  condition  exists. 

00  571 

00572 

09D3 

3E01 

:om2 

LD 

A,1 

00573 

0905 

CD7108 

> 

CALL 

LISLIST 

00574 

0  9D8 

AF 

XOR 

A 

00575 

09D9 

32BA0B 

> 

LD 

(T2),a  {get  ready  for  T20UT 

00  5  76 

WRREG 

DOUT.UNL 

00  5  77 

WAITO 

005  78 

0  9E6 

AF 

XOR 

A 

00579 

09E7 

CD7108 

> 

CALL 

LISLIST 

00580 

0  9EA 

0682 

LD 

B , AXRA+HOEND 

00  5  81 

09EC 

3AA70B 

> 

LD 

A, (EOSC) 

00582 

09EF 

A7 

AND 

A 

00583 

0  9F0 

2804 

JR 

Z ,COM25 

00584 

09F2 

D327 

OUT 

(EOSR) ,a 

00585 

09F4 

0686 

LD 

B ,AXRA+HOEND+EDEOS 

00586 

COM  2  5 

WRREG 

AUXMD.B 

005  87 

WRREG 

ADRMD , LON 

00  5  88 

WRREG 

AUXMD ,  0 

00  5  89 

0A01 

3E0 1 

LD 

A,1 

00590 

0A0  3 

32BA0B 

> 

LD 

(T2),A 

00  591 

WRREG 

CMD92 ,GTSB 

00592 

0  A0A 

CD4A09 

> 

CALL 

WAITX 

00593 

0A0D 

0E20 

LD 

C/DIN 

00594 

0A0F 

CD9908 

> 

CALL 

BYTBLK 

00595 

0A12 

2006 

JR 

NZ .COM2  7 

00596 

0A1 4 

3AB40B 

> 

LD 

A,  (MAXBLK)  ,-If  (11)  and  (12) 

00597 

0A17 

5F 

LD 

E,  A 

00598 

0A18 

0  600 

LD 

B,0 

99 


*  V.  « 1 


IX, 0 


00599  0A1A 
00600  0A1E 
00601  0A1F 
00602  0A21 
00603  0A24 


DD2I0000 

D9 

1601 

CD0809  > 

E610 


COM27  LD 
COM28  EXX 
LD 

CALL 

AND 


D ,  BIM 

T2IN 

ENDMK 
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80604 

0A26 

200B 

JR 

NZ  ,COM29 

00  60S 

0A28 

DD23 

INC 

IX 

00606 

0  A2A 

EDA  2 

INI 

00607 

0A2C 

20F0 

JR 

NZ  ,COM28 

00608 

0A2E 

ID 

DEC 

E 

00609 

0A2F 

20ED 

JR 

NZ.COM28 

00610 

0A31 

1818 

JR 

COM2 12 

00611 

0A33 

EDA2 

COM29  INI 

00612 

0A35 

DD23 

INC 

IX 

00613 

0A37 

DD22  B7  0B> 

LD 

(COUNT)  ,IX 

00614 

0A3B 

3AA80B 

> 

LD 

A , (NDAT)  ; if  <11)  and  (12)  a 

00615 

0A3E 

47 

LD 

B ,  A 

00616 

0  A3F 

3AA90B 

> 

LD 

A, (NDATB) 

00617 

0A42 

80 

ADD 

A ,  B 

00618 

0A43 

2  00  6 

JR 

NZ  ,  COM 212 

00619 

0A45 

2AB70B 

> 

LD 

HL. (COUNT) 

00620 

0A48 

22A90B 

> 

LD 

(NDATB) ,HL 

00621 

COM212  WRREG 

CMD92 ,TCSY 

00  6  22 

0  A4F 

CDB408 

> 

CALL 

T30UT 

00623 

WRREG 

AUXMD , AXRA 

00624 

WRREG 

ADRMD ,TON 

00625 

WRREG 

AUXMD, FNHSK 

00  6  26 

WRREG 

AUXMD, 0 

00627 

0A62 

C34209 

> 

JP 

RETURN 

096  28 

00  6  29 

00630 

POLL  ROUTINE  (alias  COM4) 

00631 

00632 

PURPOSE  —  wait  for  SRQ  and  do  a  serial  poll  of  t 

006  33 

device  requesting  service.  This  routine  has  been 

00  6  34 

to  match  some  of  the  ideosyncrasies  of  the  Hamam 

00635 

PARAMETERS-- 

00  6  36 

(8)  primary  address-device  to  be  polled 

00637 

(9)  secondary  address 

00638 

00  6  39 

RETURNS—  the 

status  byte  is  written  to  NICP  if  o 

00  6  40 

Otherwise  an  error  return  is  done. 

00641 

0A65 

AF 

COM4  XOR 

A  {Initialize  the  subroutine 

00642 

0A66 

4  F 

LD 

C ,  A 

00643 

0A67 

32BA0B 

> 

LD 

(T2) ,A 

00644 

0  A6A 

3E20 

LD 

A,SRQBT  {Save  the  initial  value  to 

00  6  45 

for  use  by  T2IN 

00646 

0  A6C 

32B90B 

> 

LD 

(TEMP) , A 

00647 

COM4 1  WRREG 

DOUT.UNL 

00648 

WAITO 

00649 

WRREG 

DOUT, MLA 

00650 

WAITO 

00651 

0A8  3 

79 

LD 

A,C 

check  control  reg.  to  see 


00652 

0A84 

A7 

AND 

A 

00653 

0A85 

2819 

JR 

Z  ,  COM 4  2 

00654 

0A87 

18  0A 

JR 

COM4  3 

00655 

COM44  WRREG 

DOUT,SPE 

00656 

WAITO 
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00657 

0A93 

3E01 

COM  4  3 

LD 

A ,  1 

00658 

0A95 

CD7108 

> 

CALL 

LISLIST  ; sends  out  talkeer  address 

00659 

WRREG 

ADRMO.LON 

00  66  0 

WRREG 

AUXMD , 0 

00661 

0  AA  0 

3E01 

COM4  2 

LO 

A , 1  (get  ready  for  T2IN 

0066  2 

0AA2 

32BA0B 

> 

LD 

<T2),A 

00  66  3 

WRREG 

CMD92.GTS8 

0066  4 

0  AA9 

CD4A09 

> 

CALL 

WAITX 

00665 

0AAC 

D9 

EXX 

(exchange  registers  for  T2IN 

00  666 

0AAD 

3AB90B 

> 

LD 

A,  (TEMP) 

00  667 

0AB0 

57 

LD 

D,A 

00  668 

0  ABl 

CD0809 

> 

CALL 

T2IN 

00  66  9 

0AB4 

DB20 

IN 

A, (DIN)  (get  RQS  and  STB  for  later 

00670 

0AB6 

32B90B 

> 

LD 

(TEMP) , A 

00671 

WRREG 

CMD92.TCSY 

00672 

0  ABO 

CDB408 

> 

CALL 

T30UT 

00673 

0AC0 

79 

LO 

A»C 

00674 

0  AC  1 

3C 

INC 

A 

00675 

0AC2 

4  F 

LD 

C  /  A 

00676 

0AC3 

CB49 

BIT 

l.c 

00677 

0AC5 

2007 

JR 

NZ  ,COM4S 

00678 

0AC7 

3E21 

LD 

A,SRQBT+BIM  (second  pass  throug 

00679 

0AC9 

32B90B 

> 

LD 

(TEMP) ,A 

00680 

0ACC 

18BB 

JR 

COM44 

00681 

0ACE 

CB41 

COM  4  5 

BIT 

0,C 

00682 

0AD0 

2021 

JR 

NZ  ,COM46 

00683 

0  AD2 

3AB90B 

> 

LD 

A,  (TEMP) 

00684 

0AO5 

57 

LO 

0 ,  A 

00685 

0AD6 

CD5709 

> 

CALL 

CTLNIC1 

00  6  86 

WRREG 

AORMD , TON  ;do  serial  poll  dis 

00  6  87 

WRREG 

AUXMD, 0 

006  88 

WRREG 

OOUT.SPD 

00689 

WAITO 

00  6  90 

0AEB 

3E0 1 

LD 

A ,  BIM 

00  6  91 

0  AED 

32B90B 

> 

LO 

(TEMP) , A 

00692 

0  AP0 

C36F0A 

> 

JP 

COM4  1  ;if  necessary 

00693 

COM4  6 

WRREG 

ADRMD ,TON 

00  6  94 

WRREG 

AUXMD, 0 

006  95 

0AFB 

C34209 

> 

JP 

RETURN 

00696 

00697 

NICI 

ROUTINE  (alias  COM5) 

00698 

00699 

PURPOSE  — read  data  from  NIC  to  CTL 

00700 

PARAMETERS- 

- 

00701 

(11) 

no.  of  bytes  or 

00702 

(12) 

no.  of  256  byte  blocks 

00703 

(14) 

starting  address  for  data  storage 

00  7  04 

103 


06  7  05 

0AFE 

0E40 

COM  5 

LD 

C.NICP 

00706 

0B00 

CD9908 

> 

CALL 

BYTBLK 

00707 

0B0  3 

280F 

JR 

Z , COM 5  3 

00708 
00  709 

0B11 

ID 

COM  5  2 

NICCTL 

DEC 

E 

104 


Tektronix  Z80  ASM  V3.3  NIC-488-CTL  Page  15 


00710 
00711 
00  7  1  7 

0B12 

0B14 

20F1 

C34209 

> 

:OM5  3 

JR 

JP 

NZ  ,COM5  2 

RETURN 

00713 

00714 

NICO 

ROUTINE  (alias  COM6) 

00715 

00716 

PURPOSE  — 

write  data  from  CTL  to  NIC 

00717 

00718 

PARAMETERS 

— 

00719 

(11) 

no.  of  data  bytes  or 

00720 

(12) 

no.  of  256  byte  blocks 

00  7  21 

(14) 

starting  address  of  the  data 

•  1  t  t  !  t 

00723 

0B1 7 

0E40 

C0M6 

LD 

C.NICP 

00724 

0B19 

CD9908 

> 

CALL 

BYTBLK 

00725 

0B1C 

280D 

JR 

Z  .COM 6  3 

00  7  26 

COM  6  2 

CTLNIC 

00727 

0B28 

ID 

DEC 

E 

00  7  28 

0B29 

20F3 

JR 

NZ  .COM62 

00  7  29 

0B2B 

C34209 

> 

COM  6  3 

JP 

RETURN 

00730 

00731 
00  7  32 
00  7  33 
007  34 
00735 
00736 
00737 
00  7  38 
00  7  39 
00  7  40 
00741 
00742 
00743 
00  744 
00745 
00746 
00747 
00  7  48 
00  7  49 
00  7  50 
00  7  51 
00752 
00  7  53 
00754 
00  7  55 

00756  0B2E  AF 
00757  0B2F  32BA0B 
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;  JANUARY  18,1981 

; ; ; ; ; ; ; ; ; ; ; ? ; ; ; ; s ; 

;  SEND  ROUTINE  (ALIAS  COMl) 

? 

;  sends  data  from  CTL  to  the  GPIB 

I 

.•INPUT  (1)  no.  of  listeners 
s  (2)  primary  address-first  listener 

;  (3)  secondary  address  -  first  listener 

;  (4)  — second  listener 

S  (5)  — 

;  (6)  — third  listener 

;  17)  — 

}  (10)  EOS  character  (if  EOS=0  then  EOI  is  s 

;  according  to  the  data  count  given  by  (10)  a 

;  non-zero  .the  no.  of  characters  sent  is  det 

;  location  of  the  EOS  character  in  the  data  s 

;  the  amount  of  data  as  determined  by  (10)  or 

;  or  equal  to  this  location.  Otherwise  EOI  is 

;  (11)  no.  of  bytes  to  send  or 

;  (12)  no.  of  256  byte  blocks  to  send.  (If  b 

;  no  data  is  sent. 

f  (14)  sarting  address  of  th  data  to  be  sent 

COMl  XOR  A 

>  LD  (T2 )  ,  A 


1 


* 


00  7  58 

WRREG 

DOUT, MTA 

00  7  59 

WAITO 

00760 

WRREG 

DOUT,UNL 

00761 

WAITO 

00762  0B46  AF 

XOR 

A 

f 
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80763 

0B47 

CD7108 

> 

CALL 

LISLIST 

00764 

0B4A 

3E01 

LD 

A  /  1 

00765 

0B4C 

32BA0B 

> 

LD 

(T2 ) , A 

00  766 

WRREG 

CMD92 ,GTSB 

00  767 

0B53 

CD4A09 

> 

CALL 

WAITX 

00  768 

0B56 

0E20 

LD 

C ,DOUT 

00  769 

0B58 

CD9908 

> 

CALL 

BVTBLK 

00  77  0 

0B5B 

2836 

JR 

Z ,CQM17 

00  771 

0B5D 

78 

COM  15 

LD 

A  ,B 

00  77  2 

0B5E 

A7 

AND 

A 

00  773 

085F 

280B 

JR 

Z ,COMl6 

00  77  4 

0B61 

83 

ADD 

A,E  iif  B+E  is  2, 

then  this  is 

00  77  5 

jproviding  bB 

.ne.  0 

00  77  6 

0B62 

3D 

DEC 

A 

00  77  7 

0B63 

3D 

DEC 

A 

00  778 

0B6  4 

2006 

JR 

NZ ,C0M16 

00  77  9 

WRREG 

AUXMD , SEOI 

00780 

0  B6  A 

1812 

JR 

COM  18 

00  781 

0B6C 

3AA70B 

> 

COM  16 

LD 

A, (EOSC)  ; if  EOSC  is  0,don  t 

00  782 

0B6F 

A7 

AND 

A 

00  78  3 

0B7  0 

280C 

JR 

Z ,COMl8 

00784 

0B72 

56 

LD 

D,  (HL) 

00785 

0B7  3 

BA 

CP 

D 

00  786 

0B74 

2008 

JR 

NZ ,COMl8 

00787 

WRREG 

AUXMD, SEOI 

00  788 

0B7A 

0601 

LD 

B,1  ;send  EOI  and 

auit. 

00  789 

0B7C 

1E0 1 

LD 

E,1 

00  790 

0B7E 

EDA  3 

COM  18 

OUTI 

00  7  91 

0B80 

2808 

JR 

Z , COM 19 

00  7  92 

WAITO 

00  7  93 

0B88 

18D3 

JR 

COM  15 

00  7  94 

COM  19 

WAITO 

00  7  95 

0B90 

ID 

DEC 

E 

00796 

0B9 1 

2  0CA 

JR 

NZ  ,COMl  5 

00797 

COM  17 

WRREG 

CMD92.TCSY 

00  798 

0B9  7 

CD  B  4  0  8 

> 

CALL 

T30UT 

00  7  99 

0B9A 

C34209 

> 

COM 110 

JP 

RETURN 

00  800 

;;;;;; 

;;;;;;;; 

if  M  M  M  I  f  M  f  r 

I 

1 
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00802 

00803 


00804 

• 

PARAMETER 

TABLE 

00805 

t 

00806 

0B9D 

00 

com 

BYTE 

0 

; command  number 

00807 

0B9E 

00 

NLIST 

BYTE 

0 

mo.  of  listeners  (or  can  b 

00808 

0B9F 

00 

LIS1P 

BYTE 

0 

;orimarv  address, 1st  listen 

00809 

08A0 

00 

L  ISIS 

BYTE 

0 

;secondary  add ress , f irst  li 

00810 

0  BAl 

00 

LIS2P 

BYTE 

0 

; — second  listener 

00811 

0BA2 

00 

LIS2S 

BYTE 

0 

00812 

0BA3 

00 

LIS3P 

BYTE 

0 

; — third  listener 

00813 

0  BA4 

00 

LIS3S 

BYTE 

0 

00  814 

0BA5 

00 

TALKP 

BYTE 

0 

;talker  primary  address 

00815 

0BA6 

00 

TALKS 

BYTE 

0 

;talker  secondary  address 

00816 

0BA7 

00 

EOSC 

BYTE 

0 

;EOS  character  (0  means  non 

00817 

0BA8 

00 

N  DAT 

BYTE 

0 

jno.  of  data  bytes  to  be  tr 

00818 

0  BA9 

00 

NDATB 

BYTE 

0 

jno.  of  256  byte  blocks  to 

00819 

0  BAA 

0000 

DATADD 

WORD 

0 

.■starting  address  of  the  da 

00820 

0BAC 

00 

DUM1L 

BYTE 

0 

00821 

0BAD 

00 

DUMlH 

BYTE 

0 

00822 

0BAE 

00 

MESS 

BYTE 

0 

;message  print  indicator 

00823 

0BAF 

00 

STAT1 

BYTE 

0 

00824 

0BB0 

00 

STAT2 

BYTE 

0 

00825 

7 

00826 

7 

OTHER 

DATA 

00827 

* 

00828 

0  BB  1 

0000 

RET  ADD 

WORD 

0 

00829 

0BB  3 

08 

LASTC 

BYTE 

8 

;set  to  the  last  valid  comm 

00830 

0  BB  4 

04 

MAXBLK 

BYTE 

4 

;set  to  the  max.  no.  of  256 

00831 

08B5 

0000 

STACK P 

WORD 

0 

^temporary  storage  for  stac 

00832 

0BB7 

0000 

COUNT 

WORD 

0 

idata  counter  location 

00833 

7 

00  8  34 

7 

TEMPORARY 

STORAGE 

00835 

7 

00  8  36 

0BB9 

00 

TEMP 

BYTE 

0 

00  8  37 

0BBA 

00 

T2 

BYTE 

0 

00  8  38 
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Strings  and  Macros 

CTLNIC  -  007A  M 
WAITO  —  0052  M 


NICCTL  -  008D  M 
WRREG  —  007F  M 


NICCTL1  0097  M 


Scalars 


ABORT 

00F9 

AORST  — 

0024 

ASR2 - 

0004 

AUXMD  — 

0025 

BIM - 

0001 

BUSY - 

0006 

CLRST  — 

0010 

COM  9 - 

***  * 

CPTRG  -- 

0025 

DIN - 

0020 

DNEWT  — 

0001 

OTDLl  — 

0060 

ENDMK  — 

0010 

ERFLAG  - 

0010 

FNHSK  — 

0003 

IACK - 

800B 

INT2 - 

00  22 

INTMR  — 

0010 

LON - 

0040 

MODEl  — 

0001 

PRT91  — 

0020 

RBST - 

00E7 

RSET - 

00F2 

SPO - 

0019 

SRVC - 

0002 

TA - 

0002 

TCNTR  — 

00  FA 

TMOOT  — 

007F 

TOST - 

0010 

UNL - 

00  3F 

WTOUT  — 

00E1 

ADR01  — 

0026 

ASR0 - 

0001 

ASR3 - 

0008 

AXRA - 

0080 

BOM  — 

0001 

CAST - 

0040 

CMD92  — 

0011 

CPT - 

0080 

CTRL I  -- 

0080 

DM  AWT  -- 

0010 

DONE  — 

0005 

DTDL2  — 

00E0 

EOIS  — 

0008 

ERRBT  -- 

0040 

GTSB  — 

00F6 

IBFBT  — 

0002 

INT8ST  - 

0080 

INTST  -- 

0011 

MDA - 

0001 

MTA - 

004  1 

PRT92  — 

0010 

RCST - 

00E6 

RSTI - 

00F3 

SPE - 

0018 

SYCBT  — 

0008 

TCASY  -- 

00  FC 

TCSY - 

00FD 

TON - 

0080 

TOUT2  — 

0002 

UNT - 

005F 

ADRMD  — 

0024 

ASR1 - 

0002 

ASR4 - 

0010 

AXRB - 

00A0 

BUSST  — 

0010 

CLKRT  — 

0024 

COM 8  --- 

**  ** 

CPTEN  — 

0001 

CTRLO  — 

0080 

DNECL  — 

0004 

DOUT - 

0020 

EDEOS  — 

0004 

EOSR - 

0027 

ERPM - 

0010 

HOEND  — 

0002 

INTI - 

0021 

INTM - 

00A0 

K - 

0003  V 

MLA - 

0021 

NICP - 

0040 

PRTP - 

0008 

RERF - 

00E4 

SEOI - 

0006 

SRQBT  — 

0020 

SYCS - 

0008 

TCI  F - 

0001 

TCT - 

0009 

TO  REG  — 

0010 

TOOT3  — 

0304 

VSCMD  — 

000F 

%TT  (default)  Section  ( 0BBB ) 


BY1 - 08AA 

BY2 - 

COM1 - 0B2E  G 

COMll 0  - 

COM 16  —  0B6C 

COM 17  — 

COM 19  —  0B8A 

COM2  — 

COM2  5  —  09F6 

COM 2 7  — 

COM 2 9  —  0A33 

COM4  —  - 
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08B0 

BYTBLK  -  0899 

0B9A 

COMl 5  —  0B5D 

0B9  3 

COH18  —  0B7E 

09D3  G 

COM2 12  -  0A4B 

0Al  A 

COM 2 8  —  0 AlE 

0A6S  G 

COM4 1  —  0A6F 

V\ 


COM4  2  —  0AA0 
COM4  5  —  0ACE 
COM 5 2  —  0B05 
COM 6  2  —  0B1E 
COUNT  —  0BB7 


COM 4 3  — 

0A93 

COM44  - 

COM 4 6  — 

0AP3 

COM  5  — 

COM3  3  — 

0B14 

COM  6  — 

COM63  — 

0B2B 

COMN 

CT10300 

0B1E 

CTLNIC1 

0A89 
0APE  G 
0B17  G 
0B9D 
0957 
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DATADD  - 

0  BAA 

EOSC - 

0BA7 

INIT0  — 

0967 

INIT12  - 

098E 

LAB0  200 

0A7  3 

LAB2300 

0B36 

LAB5100 

09E0 

LABC200 

0AE5 

LI1 1 - 

0884 

LI4 - 

0896 

LXS1S  — 

0BA0 

LIS3P  — 

0BA3 

MAXBLK  - 

0BB4 

NDATB  — 

0BA9 

RDIND  — 

08  DC 

STACK P  - 

0BBS 

STAT2  — 

0BB0 

T22 - 

0933 

T25 - 

091C 

T32 - 

08BA 

T30UT  — 

0  8B4 

TALKS  -- 

0BA6 

WAITl  — 

0817 

WR2 - 

0907 

WX1 - 

0950 

COM3  Unbound  Global 
COM 7  unbound  Global 


838  Source  Lines 
838  Source  Lines 

2  ERRORS 
2  ERRORS 
•ASM*  ECU 
TTL;C  COMPLETED 

> 


DUM1H  -- 

0  BAD 

ERROR  -- 

0857 

INITl  — 

0982 

INIT2  — 

09AF 

LAB2000 

088  F 

LAB4200 

0A3D 

LAB8300 

0B82 

LASTC  — 

0BB  3 

LI2 - 

0895 

LI5 - 

0889 

LIS2P  — 

0BA1 

LIS3S  — 

0BA4 

MESS - 

0BAE 

NI1F200 

0B05 

RET ADD  - 

0  BB 1 

START  — 

08  3C 

T2 - 

0BBA 

T2  3 - 

0938 

T2  6 - 

092C 

T33 - 

0  8DB 

TABLE  — 

0  B9D 

TEMP - 

0BB9 

WAITX  — 

0  94A 

WR3 - 

0901 

1213  Assembled  Lines 
1213  Assembled  Lines 

2  UNDEFINED  SYMBOLS 
2  UNDEFINED  SYMBOLS 


DUM1L  —  08AC 

INIT -  8961 

INITll  -  0994 
INIT3  —  09BB 
LAB2200  0A7D 
LAB4300  0B40 

LAB9300  0B8A 

Lll -  0887 

Li  3  -  087E 

LIS1P  —  0  B9F 
LIS2?  --  0 BA2 
LISLIST  0871 

NDA'f - 0BA8 

NLIST  --  0B9E 
RETURN  -  0942 
ST ATI  —  0BAF 

T21 - 0915 

T24  -  093F 

T2IN -  0908 

T34  -  0  8D4 

TALKP  —  0BA5 

WAIT -  0803 

WR1 - 08F4 

WRIND  —  08EB 


9942  Bytes  available 
9942  Bytes  available 
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//  CAMERA  MAIN  (JANUARY  30,1981) 

//  MAIN  DRIVER  PROGRAM  FOR  CAMERA  CONTROL.  THIS  PROGRAM  PERFORMS 
/  VARIOUS  BASIC  OPERATIONS  HAVING  TO  DO  KITH  CONTROLLING  THE 
/  HAMAMATSU  C1000  CAMERA  VIA  THE  NIC-488/CTL  INTERFACE. 

/  IN  ADDITION  VARIOUS  CONTROLLER  FUNCTIONS  ARE  PERFORMED.  EACH  FUNCTION 
/  IS  CALLED  A  MODE  (OF  OPERATION).  AT  PRESENT  7  MODES  HAVE  BEEN 
/  IMPLEMENTED  AS  FOILOWS : 

/ 

/  MODE1  -  RESET  THE  CAMERA, CONTROLLER  AND  LOAD  THE  CONTROLLER  MEMORY 
/  THIS  OPERATION  SHOULD  USUALLY  BE  THE  FIRST  OPERATION  ON  SYSTEM 
/  START  AND  MAY  BE  REPEATED  ANY  TIME  THE  USER  WISHES  TO 
/  RESTART.  THE  QUERY  IS  - 

/  PILE  NAME?-  (REPLY  KITH  THE  NAME  OF  THE  NIC  FILE  CONTAINING 
/  THE  MAIN  CONTROLLER  PROGRAM.  (NOTE  THAT  AT  PRESENT  THIS  IS  STORED 
/  IN  RAM  WHICH  MUST  BE  RELOADED  EACH  TIME  THE  CTL  IS  TURNED  OFF.) 

/ 

/  MODE2  -  LOAD  AND  EXECUTE  SPECIAL  “COMMANDS".  AT  PRESENT  THE 
/  CTL  RECOGNIZES  TWO  OPTIONAL  COMMANDS  (NOS.  7  i  8) .  THESE 
/  COMMANDS  ARE  NOT  PART  OF  THE  MAIN  SEQUENCE  OF  CTL  PROGRAMS  AND 
/  MUST  BE  LOADED  BEFORE  CALLING.  AT  PRESENT,  IT  IS  ASSUMED  THAT  THE 
/  CORRESPONDING  NIC  COMMAND  PROGRAM  IS  IN  NIC  CORE.  THE  MODE  QUERY  IS- 
/  COMMAND  #?-  (REPLY  7  OR  8) 

/  FILE  NAME?-  (REPLY  WITH  THE  NIC  FILE  TO  BE  LOADED) 

/  (OPTIONAL  SPECIAL  DATA,  DEPENDING  ON  THE  COMMAND) 

/ 

/  MODE3  -  TRANSFER  AND  TRANSFORM  A  TEKTRONIX  8002  TEK-HEX 
/  FILE  PROM  COMM-STOR  TO  A  NIC  LOAD  FILE.  THIS  MODE  PROVIDES  FOR 
/  EASY  TRANSFER  OF  ASSEMBLED  Z-80  CODE  TO  NIC  AND  THENCE  TO  CTL. 

/  THE  MODE  QUERY  IS  - 

/  FILE  NAME?-  (RESPOND  WITH  THE  COMM-STOR  FILE  NAME  WHICH 
/  ALSO  BECOMES  THE  NIC  FILE  NAME) 

/  NOTE-  IF  THE  FILE  DOES  NOT  EXIST  IN  COHMSTOR,  THE  USER  WILL 
/  BE  INFORMED  OF  THIS.  HE  MUST  THEN  TYPE  *Z  TO  GET  PROGRAM  CONTROL. 

/ 

/  MODE4  -  CAMERA  SET-UP.  USING  THIS  MODE,  ANY  OF  5  LEGITIMATE 
/  CAMERA  SET-UP  COMMANDS  GIVEN  IN  CAMERA  TABLE  ARE  SENT  TO  THE  CAMERA. 

/  THE  MODE  QUERY  IS  - 

/  MNEMONIC?-  (REPLY  WITH  ONE  OF  THE  3  LETTER  MNEMONIC 
/  CODES:  OUT  INF  XCO  INT  MAR 

/  THE  CURRENT  VALUE  IS  THEN  PRINTED  AFTER  WHICH  THE  USER  MAY  TYPE 
/  IN  A  NEW  VALUE  OR  CR  TO  RETAIN  THE  GIVEN  ONE. 

/  NOTE  THAT  AT  PRESENT  THE  USER  SHOULD  NOT  CHANGE  OUT  WHICH  GIVES 
/  THE  FORMAT  OF  DATA  SENT  TO  THE  CAMERA.  IT  SHOULD  STAY  AT 
/  ITS  DEFAULT  VALUE  OF  I  MEANING  ASCII  DATA. 

/ 

/  MODE5  -  OBTAIN  A  "FRAME"  OF  VIDEO  DATA  (THE  SIZE  OF  A  FRAME  DEPENDS 
/  ON  THE  CAMERA  TABLE  VALUES  FOR  XCO  AND  INT  AND  ON  THE  COMMAND) . 

/THE  MODE  QUERY  IS  - 
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/  FILE  NAME?-  (REPLY  WITH  THE  NAME  OF  THE  NIC  FILE  TO  RECEIVE 
/  THE  DATA  OR  WITH  "PRINT"  WHICH  WILL  CAUSE  THE  DATA  TO  BE 
/  PRINTED  BUT  NOT  STORED.  IF  "PRINT"  IS  GIVEN,  THE  ACTUAL  FORM 
/  OF  THE  PRINTED  VIDEO  DEPENDS  ON  THE  INPUT  FORMAT  (INF).  IF  1  OR  3, 

/  THE  DISPLAY  IS  3  CHARACTER  (000-256)  FOLLOWED  BY  "BLANK",  16 
/  PIXELS/LINE.  IF  2,  THE  DISPLAY  IS  2  CHARACTER  HEX  (00-FF)  WITH 
/  NO  BLANKS  AND  32  PIXELS/LINE.) 

/  FRAME?-  (REPLY  WITH  VIl,VII,VID  FOR  1-LINE  VIDEO, A  FRAME 
/  STARTING  AT  X-COORD  GOING  TO  HIGHER  X-VALUES,  A  FRAME 
/  STARTING  AT  X-COORD  GOING  TO  LOWER  X-VALUES  RESPECTIVELY. 

/ 

/  MODEb  -  TRANSFER  CTL  MEMORY  TO  NIC  AT  100000  IN  PACKED  FORM. 

/  THE  MODE  QUERY  IS  - 

/  HEXN-  (REPLY  WITH  4  HEX  DIGIT  ADDRESS  AND  A  SINGLE  DIGIT 
/  SPECIFYING  THE  NO.  OF  256  BYTE  BLOCKS  WANTED. 

/  E.G.  0C004  MEANS  ADDRESS  C00  AND  4  BLOCKS) 

/  THE  DATA  OBTAINED  MAY  BE  DISPLAYED  BY  CALLING  MODE7 

/ 

/MODE7  -  DISPLAY  MEMORY  IN  HEX  FORMAT.  THE  REGION  DD ISPLAYED  STARTS 
/  AT  100000  AND  IS  NW3  WORDS  LONG  WHERE  NW3  IS  OBTAINED  BY  RUNNING  MODE 3 
/  OR  MODE6.  THE  USER  CAN  ALSO  CHANGE  NW3  HOWEVER. 

/  THE  WORDS  ARE  ASSUMED  TO  BE  IN  PACKED  FORM. 

/ 

/MODE8  -  DISPLAY  NIC  WORDS  IN  HEX  AND  PERMIT  THE  USER  TO  CHANGE  THE 
/  DISPLAYED  WORD  (ALSO  IN  HEX).  THIS  MODE  CAN  BE  USED  TO  PUT  PROGRAM 
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/  PATCHES  INTO  CTL. 

/  THE  MODE  QUERY  IS  - 

/  OCT  -  i  REPLY  WITH  THE  STARTING  ADDRESS  (OCTAL)  OF  NIC 
/  MEMORY  TO  BE  OBSERVED  AND/OR  CHANGED  ) 

/  THE  PROGRAM  THEN  DISPLAYS  THE  FIRST  WORD  AS  5  HEX  DIGITS  AND 
/  WAITS  FOR  USER  RESPONSE.  A  SPACE  (OR  ANY  SEQUENCE  OF  1  TO  4 
/  CHARACTERS)  THEN  CR  WILL  CAUSE  NO  CHANGE. 

/  IF  5  HEX  CHARACTERS  ARE  ENTERED  THEY  WILL  REPLACE  THE  DISPLAYED 
/  WORD.  THE  NEXT  WORD  WILL  THEN  BE  DISPLAYED,  ETC.  TO  EXIT  THIS 
/  MODE  REPLY  WITH  CR  ONLY.  THE  CHANGED  CODE  CAN  BE 
/  LOADED  INTO  CTL  MEMORY  VIA  MODE  1  WITH  A  NON-EXISTANT  FILE 
/  NAME. 

/ 

/ 

/  THE  USER  MAY  EXIT  CTLSYS  VIA  NICBUG  TO  NICSYS  ANr  STORE  THIS  PROGRAM 
/  DATA  FOR  LATER  USE.  USE  STORE  NAME  1 00000 -1 00 6  32  ;  2 00000  : P 

/ 

/  NOTE  --  WHEN  RESPONDING  TO  A  QUERY,  THE  USER  MAY  TYPE  *G  TO  ABORT 
/  THE  MODE.  TYPING  *Q  WILL  BRING  THE  USER  TO  NICBUG  (IF  LOADED). 

/  VALUE  ASSIGNED  TO  ABORT. 

//  PARAMETER  TABLE 

COMN ,  0 

NLIST,  0 

LISlP,  0 

LIS1S,  0 

LIS2P,  0 

LIS2S,  0 

LIS3P,  0 

LIS3S,  0 

TALKP,  0 

TALKS,  0 

EOSC,  0 

NDAT,  0 

NDATB ,  0 

DATAL,  0 

DATAH,  0 

RETAL,  0 

RETAH,  0 

MESS ,  0 

DUMl ,  0 

DUM2,  0 

/ 

/ 

/  DEFINITIONS 

LISTEN-40  /OCTAL  BASE  FOR  LISTENERS 

TALK-100  /OCTAL  BASE  FOR  TALK 

CTL-1  /ADDRESS  ASSIGNED  TO  CONTROLLER 

CAMERA-2  /ADDRESS  ASSIGNED  TO  CAMERA 

BASE-140  /BASE  FOR  CAMERA  "SECONDARY  ADDRESSES" 

OUTF-1  /OUTPUT  FORMAT  (1,2) 
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INF=2  /INPUT  FORMAT  (1,2,3) 

XCOURD  =  3  /X-COORDINATE  (0  -  1023) 

INTERL=4  /INTERLACE  (1,2,4) 

HORRES=  5  /HORIZONTAL  RESOLUTION  (1,2, 3, 4) 

EXTAN=6  /EXTERNAL  ANALOG  (l=OFF) 

MARK=7  /MARKER  ON/OrF  (l=ON) 

VI D IN=1 0  /VIDEO  INPUT 
VI D INI =1 1  /VIDEO  IN  &  INCREMENT 

VIDIND=12  /VIDEO  IN  ^DECREMENT 

SLICE=1 3  /SLICE  INPUT 
SLICEI=1 4  /SLICE  IN  &  INCREMENT 

SLICED=1 5  /SLICE  IN  &  DECREMENT 

BUFFER=16  /BUFFER  DISPLAY/ 

/ 

CTLCF=406  2 
CTLRD=44064 
CTLRDC  =  44  0  66 
CTLSK=6064 
CTLWR=40  71 
CTLRS  =  40  72 

//  CAMERA  TABLE  (DEFINES  CAMERA  COMMANDS  AND  MNEMONICS) 

/  EACH  ENTRY  CONTAINS  THE  FOLLOWING  DATA  IN  THE  SEQUENCE  SHOWN- 
/  MNEMONIC  -  3  LETTERS  IN  PACKED  ASCII  (RIGHT  JUSTIFIED) 

/  CODE  -  OCTAL  SECONDARY  ADDRESS  DEFINING  THE  COMMAND 
/  NNIB  -  NO.  OF  NIBBLES  IN  THE  COMMAND  DATA  (0-5) 

/  C-DATA  -  UP  TO  5  NIBBLES  OF  NUMERICAL  DATA  (LEFT  JUST.) 
CTABLE,  0576564  /OUTPUT  FORMAT  (OUT) 

BASE+OUTF 

1 

0200000  /DEFAULT  1 
0515646  /INPUT  FORMAT  (INF) 

BASE+INF 

1 

0200000  /DEFAULT  1 
0704357  /X-COORD  (XCO) 

BASE+XCOORD 

3 

1211000  /DEFAULT  512 
0515664  /INTERLACE  (INT) 

BASE+INTERL 

1 

0400000  /DEFAULT  2 
0554162  /MARKER  ON/OFF  (MAR) 

BASE+MARK 

1 

0  /DEFAULT  0 

0665121  /1-LINE  VIDEO  (VIl) 

BASE+VIDIN 


0 

0665151  /1-LINE  VIDEO  +  INCREMENT  (VII) 
BASE+VIDINI 
0 
0 

0665144  /1-LINE+DECREMENT  (VID) 
BASE+VIDIND 
0 
0 

0426546  /BUFFER  DISPLAY  (BUF) 
BASE+BUFFER 
0 
0 

300  /@  TO  TERMINATE  THE  TABLE 

START,  JMS  @CRLF 
JMS  @UNP 
7 
0 

.TEXT  %  MODE?-% 

RPT,  JMS  @ECHO 

A-MZ  (223  /CONTROL  G 
ZERZ 

JMP  @ABORT 
A-MZ  ("1 
ZERZ 

JMP  MODEl 
A-MZ  ("2 
ZERZ 

JMP  MODE2 
A-MZ  ("3 
ZERZ 

JMP  MODE3 
A-MZ  ("4 
ZERZ 

JMP  MODE4 
A-MZ  ("5 
ZERZ 

JMP  MODES 
A-MZ  ("6 
ZERZ 

JMP  MODE6 
A-MZ  ("7 
ZERZ 

JMP  MODE7 
A-MZ  ("8 
JMP  START 
JMP  MODE8 


MODEl,  JMS  @GETFIL  /GET  THE  FILE  AND  STORE  IT  IN  CORE 

ACCA  /IF  NO  FILE,  ASSUME  IT  IS  ALREADY  IN  CORE  (NIC) 

JMS  @ZERTAB  /ZERO  THE  COMMAND  TABLE 

TABLA 

/  INITIALIZE  THE  CAMERA  TABLE  TO  DEFAULT  VALUES 
JMS  @SEARCH 
0576564 


0200000 

1 

CTABLE 

1 

JMS  @SEARCH 

0515646 

0 

0200000 

1 

CTABLE 

1 

JMS  ^SEARCH 
0704357 
0 

1211000 

3 

CTABLE 

1 

JMS  ^SEARCH 

0515664 

0 

0400  00  0 
1 

CTABLE 

1 

JMS  ^SEARCH 
0554162 
0 
0 
1 

CTABLE 

1 

CTLRS  /RESET  THE  CTL 
ZERA  /FORCE  CTL  TO  BOOT  LOAD 
ZERM  SCTLC 
JMS  SCTL 
JMS  @UNPF 
SCTLA 
2000 
0 

100000 

CTLCF  /CLEAR 


JMP  START 


/ 

///////////////////////////////////////////////////////////// 

/ 

M0DE2,  JMS  @GETFIL  /PUT  FILE  IN  NIC  CORE 
JMP  START  /ERROR  EXIT  FROM  GETFIL 
JMS  @CRLF 
MODE21,  JMS  @UNP 
13 
0 

TEXT  %  COMMAND#?-% 

JMS  0ZERTAB 
TABLA 

JMS  @ECHO 

ACCM  TEMP  /COMMAND  SHOULD  BE  ASCII  267  OR  270 
A-MZ  (267 
JMP  #+3 

MEMA  (14  /STORE  AT  C00 
JMP  #+4 
A-MZ  (270 

JMP  MODE21  /WRONG  COMMAND  # 

MEMA  (16  /STORE  AT  E00 
ACCM  DAT AH 

MEMA  BUFS  /SET  UP  COMMAND  TABLE  FOR  FILE  TRANSFER 
ACCM  NLIST 
MEMA  (5 
ACCM  COMN 

MEMA  (2  /ASSUME  2  256  BYTE  BLOCKS  FOR  TRANSFER 

ACCM  NDATB 

ZERM  DUMl 

JMS  COM 5 

MEMA  TEMP 

A-MZ  (267 

JMP  #+3 

JMS  @COM7 

JMP  #+2 

JMS  @COM8 

JMP  START 


119 


i 


/ 

////////////////////////////////////////////////////////////} 

/ 

M0DE3,  JMS  F1LEQ 
JMS  @PKR 
FIL1 
NWl ,  0 

JMS  @CRLF 
MEMA  (3 
A+MA  NWl 
ACCM  NW2 

JMS  @UNP  /SEND  COMMAND  TO  COMM-STOR  TO  SEND  DATA 

nw2,  0 
1 

16300 

FILl ,  BLOCK  2 
0770000 

JMS  @PAKF  /RECEIVE  THE  DATA  AND  PACK  IT 
COMSTO 
100000 
0 

100000 
NBYTES ,  0 


MEMAZ 

NBYTES 

ACCM 

NW3 

A-MA 

(4 

EXCT 

AC19 

JMP 

MODE3 

JMS 

0TEKHEX 

NW3,  0 
NBY5 ,  0 

MEMA  NW3 
ACCM  NW4 
MEMA  BUFS 
ACCM  @OARG3 
JMS  0NICFIL 
NW4 ,  0 

FILl 

JMP  MODE31  /ERROR  RETURN  FROM  NICFIL-NO  ROOM 
JMP  START 
MODE31,  JMS  @UNP 
21 

TEXT  %  NO  ROOM  FOR  FILE% 

JMP  0ABORT 
COMSTO,  0 
TTYRF 
JMP  #-l 
RDTTY 

A-MZ  (232  /CHECK  FOR  “Z  (END  OF  FILE) 


JMP  @COMSTO 
ONEM  @PCOUNT 
JMP  @COMSTO 

/  NOTE  THAT  SETTING  PCOUNT  TO  1  FORCES  PAKF  TO  STOP.  COMM-STOR 
/  SHOULD  BE  CONFIGURED  TO  SEND  EOF. 

//  SUBROUTINE  FILEQ 

/  PURPOSE  --  SEND  MESSAGE  -  FILE  NAME?- 
FILEQ ,  0 

JMS  @CRLF 
JMS  @UNP 
14 
0 

TEXT  %  FILE  NAME?-% 

JMP  0FILEQ 

/ 

/ 

//////////////////////////////////////////////////////////////// 

/ 

MODE4 ,  JMS  0ZERTAB 
TABLA 
MEMA  (5 

ACCM  COMN  /INITIALIZE  COMMAND  TABLE  FOR  DATA  TRANSFER 

MEMA  (311  /FROM  NIC  TO  CTL 

ACCM  NLIST 

MEMA  (14 

ACCM  DAT AH 

MONM  DUMl  /WILL  BE  SENDING  NIBBLES 

MODE41,  JMS  @UNP 

13 
0 

TEXT  %  MNEMONIC?-! 

JMS  @PKR 
FIL2 
NC,  0 

JMS  @CRLF 
ZERM  FLAG 
MEMA  NC 

A-MZ  (3  /MUST  HAVE  3  CHARS. 

JMP  MODE41 
JMS  @SEARCH 
FIL2 ,  0 

CODE ,  0 

VAL,  0 
NBYTE ,  0 

CTABLE 
FLAG ,  0 

MEMZ  FLAG 

JMP  MODE41  /NON-ZERO  FLAG  MEANS  MNEMONIC  NOT  FOUND 
MEMAZ  NBYTE 
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JMP  #+2 
JMP  MODE42 
ACCM  NBYl 
MEMA  FIL2 
ACCM  MM  1 

JMS  @UNPF  /DISPLAYS  THE  NIBBLES 

TYPEl  /TYPE1  CONVERTS  4  BIT  HEX  TO  NIC-ASCII  AND  TYPES  IT 
NBY1 ,  0 

7777777  /-I  FOR  NIBBLES 

VAL 

JMS  NIB  /PACK  THE  USER  GIVEN  NIBBLES 
VAL  4 

NBY2,  0 
JMS  @CRLF 

MEMAZ  NBY2  /IF  NO  BYTES,  USE  DEFAULT 

JMP  #+6 

MEMA  VAL 

ACCM  LIS1P 

MEMA  NBYTE 

ACCM  NDAT 

JMP  MODE43 

ACCM  NDAT 

ACCM  NBY4 

MEMA  VAL4 

ACCM  LISlP 

ONEM  FLG4 

JMS  ^SEARCH  /UPDATE  THE  C-TABLE  WITH  THE  NEW  VALUE 
MM  1 ,  0 

0 

VAL4 ,  0 

NBY  4  ,  0 

CTABLE 
FLG4 ,  0 

MODE43,  JMS  COM5 

MODE42,  ONEM  COMN  /SET  UP  COMMAND  TABLE  FOR  CTL-CAM 
ONEM  NLIST 
MEMA  (LISTEN+CAMERA 
ACCM  LIS1P 
MEMA  CODE 
ACCM  LIS1S 
JMS  COMl 

MODE44 ,  JMP  START 
//  FUNCTION  TYPEl 

/  PURPOSE  —  CONVERT  4  BIT  HEX  (LEFT  JUSTIFIED)  IN  ACC  TO  8-BIT 
/  ASCII  AND  TYPE  IT. 

TYPEl,  0 
A+MA  (260 
ACCM  TTEMP 
M-AA  (271 
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SKIP 

AC19 

JMP 

#+3 

MEMA 

(7 

A+MM 

TTEMP 

MEMA 

TTEMP 

JMS 

@TYPE 

JMP 

0TYPE1 

TTEMP , 

BLOCK 

/////////////////////////////////////////////////////// 

//  SUBROUTINE  NIB (VALA,NNIB) 

/  PURPOSE  --  PACKS  NNIB  USER  GIVEN  NUMBERS  INTO  THE  LOCATION 
/  GIVEN  BY  VALUA.  UP  TO  5  NIBBLES  ,  LEFT  JUSTIFIED  0  FILL 
/  MAY  BE  PACKED.  THE  NUMBER  OF  NIBBLES  IS  RETURNED  IN  NNIB 
/  AND  IS  DETERMINED  BY  CR. 


NIB ,  0 

JMS  0PAKF 
ECHOl 
6 
0 

PENDA 
NNIB ,  0 

MEMA  NNIB 
ACCM  @COUNTN 
MEMA  (6 
ACCM  @WCNT 
MMOA  PEND 
ACCM  @WPNT 
ZERM  0WORD 
MEMA  PEND 
AMOM  @APNT 
ONEM  @BCNT 
JMS  @DEC 
MEMA  @NIB 
ACCM  TEMP 
MEMA  @WORD 
ACCM  @TEMP 
MPOM  NIB 
MEMA  NNIB 

AMOM  @NIB  /-I  BECAUSE  OF  CR 
A-MZ  (6  /IF  HAVE  FULL  WORD,  GET  FROM  PEND 
JMP  NIB3 
MEMA  @PEND 
ACCM  @TEMP 
NIB3,  MPOM  NIB 
JMP  @NIB 
/COMMON  DEFINITION 
WPNT,  WPNTD 
WORD,  WPNTD+1 
WCNT,  WPNTD+2 
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COUNTN,  WPNTD+3 
BCNT,  WPNTD+4 
APNT,  WPNTD+5 

///////////////////////////////////////////////////////} 

ECHOl ,  0 

JMS  0ECHO 
A~MZ  (215 
JMP  0ECHO1 
ONEM  @PCOUNT 
JMP  @ ECHOl 
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/ 

//////////////////////////////////////////////////// ' / ///////// 

/ 

/ 

M0DE5,  JMS  @ZERTAB 

TABLA 

MEMA  T3  /SET  DIVIDE  ARGUMENTS 

ACCM  REM 2 

MEMA  (5 

ACCM  REM 

ACCM  REMl 

MEMA  PA1  /DEFAULT  PAUSE  CONSTANT 

ACCM  PAUC 

MEMA  (44  /SET  POLL  STATUS  BYTE  COUNTER 

ACCM  NCNT 

JMS  FILEQ  /GET  FILE  NAME,  MAY  BE  "PRINT" 

JMS  @PKR 
FILNM 
0 

JMS  @CRLF 

JMS  @SEARCH  /GET  SOME  CAMERA  PARAMETERS  TO  DETERMINE 
0704357  /SPACE  REQUIREMENTS 

0  ! 
VALM5 ,  0 

NBM5,  0 
CTABLE 
0 

MEMA  VALM5 
ACCM  VALM5I 
MEMA  NBM5 
ACCM  NBM51 

JMS  @NIBBIN  /CONVERT  TO  BINARY  INTEGER 
VALM51,  0 
NBM51 ,  0 

12 

BIN,  0 

JMS  0SEARCH  /LOOK  AT  INTERLACE  TO  GET  NO.  OF  ELEMENTS/LINE 

0515664 

0 

VALM52,  0 
0 

CTABLE 

0 

MEMA  VALM52  /GET  INTERLACE  NIBBLE  AND  CONVERT  TO  INTEGER 
LLSH  4 
ACCM  INT 

ONEM  N  /N  IS  THE  NO.  OF  LINES/FRAME;  DEFAULT  TO  1  ! 

MOD50,  JMS  @UNP 
10 
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0 

TEXT  %  FRAME ?-% 

JMS  @PKR 
FILM  5 
0 

JMS  (dCRLF 
MEMA  FILMS 
ACCM  FILM51 
ZERM  FLGM5 

JMS  ^SEARCH  /GET  CORRESPONDING  CODE 
FILM51,  0 
CODM5,  0 
0 
0 

CTABLE 


FLGM5, 

0 

MMOZ 

FLGM5  /FLAG=1  MEANS  WRONG 

COMMAND 

JMP 

#  +  2 

JMP 

MOD50 

MEMA 

CODM5 

A-MZ 

(BASE+VIDIN 

JMP 

#+2 

JMP 

MODE51  /N=l  FOR  VIDIN,ELSE 

CALCULATE  N= 

A-MZ 

(BASE+VIDINI 

JMP 

MODE52  /  (1024-XCOORD) *INT/4 

OR 

MEMA 

(1777  /  (XCOORD+1) *INT/4 

APOA 

A-MA 

BIN 

JMP 

MODE53 

MODE52,  A-MZ  (BASE+VIDIND 
JMP  MOD50 
MPOA  BIN 


MOOE53,  JMS  @MULTP 
INT,  0 

RISH  2  /DIVIDE  BY  4 
ACCM  N 

MODE5I,  JMS  0SEARCH  /  FIND  THE  NO.  OF  BYTES/LINE 
0515646  /INF 
0 

VALM53,  0 
0 

CTABLE 

0 

ZERM  FACTl 
MEMA  VALM53 

LLSH  4  /CHANGE  TO  1,2  OR  3 
ACCM  VALM53 

MEMA  (4  /NO.  OF  BYTES/LINE® 2 56* I NT* 

ACCM  FACTOR  /  (4  OR  1  OR  4  +  0  OR  0  OR  1/16) 
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MEMA  VALM53 
A-MZ  (2 
JMP  #+2 
ON EM  FACTOR 
A-MZ  (3 
JMP  #+3 
MEMA  (20 
ACCM  FACTl 
MEMA  INT 
JMS  @MU  LTP 
FACTOR,  0 

ACCM  NDATBl  /NO.  OF  256  BYTE  BLOCKS/LINE 

JMS  @MULTP 

400 

A+MA  FACTl 

ACCM  NWORD  /TOTAL  NO.  OF  BYTES/LINE 
/  IF  INF  IS  NOT  2  OR  IF  THE  FILE  NAME  IS  PRI (NT) ,  THE  CAMERA 
/  VIDIO  IS  PRINTED  ONLY  AND  NO  FILE  IS  CREATED  ON  THE  DISK. 

ONEM  PRTFLG  /I  MEANS  THIS  IS  A  "PRINT  FILE" 

ONEM  J1 

ZERM  @SMODE  /SET  SENDF  MODE  SWITCH 

MEMA  ( 1 00 

ACCM  @SWCNT 

ACCM  0SWCNT0 

MEMA  VALM53 

A-MZ  (2 

JMP  MODE55 

MEMA  FILNM  /SEE  IF  PRINT 
A-MZ  PRI  /PREPACKED  "PRI" 

JMP  MOD5  4 
ONEM  @SMODE 
MEMA  (40 
ACCM  @SWCNT 
ACCM  @SWCNT0 
JMP  MODE55 

/  FOR  A  DISK  FILE  ,  WE  HAVE  TO  ESTIMATE  THE  SPACE  REQUIRED,  OPEN  THE 
/  FILE  ETC. 

MOD54,  ZERM  PRTFLG 

MEMA  NWORD  /BYTES/LINE*N*TOTAL  NO.  OF  BYTES 
ACCM  #+4 

MEMA  N  /THEY  ARE  REDUCED  BY  2/5  IN  PACKING 
LASH  1  /MULT  BY  2 
JMS  @MULTP 
0 

JMS  0DIVDE  /DIVIDE  BY  5 
REM,  0 

APOM  SIZE  /MUST  BE  A  REMAINDER  OF  AT  LEAST  1 
MEMA  REM  /TAKE  CARE  OF  THE  REMAINDER 
A-MA  (3 


127 


SKIP  AC 19 
MPOM  SIZE 

MEMA  SIZE  /TOTAL  NO.  OF  PACKED  WORDS 
ACCM  0OARG2 

JMS  @OPENW  /CHECKS  TO  MAKE  SURE  THERE  IS  ROOM 
MEMA  @OARG  2 
A-MZ  SIZE 
SKIP  AC 19 
JMP  MODE56 
JMS  @UNP 
10 
1 

TEXT  %  NO  ROOM% 

JMP  MOD5E 

MODE56,  MEMA  @OARGl 

ACCM  IT0  /STARTING  TRACK  FOR  THE  FILE 
ACCM  IT 

MEMA  INT  /NEXT  GET  APPROPRIATE  VALUES  FOR  SOME  LOOP 
A-MZ  (4  /LIMITS  FOR  STORING  THE  DATA 
JMP  MODE57  /AND  FOR  PAUSE 
MEMA  (17 
ACCM  J1 
MEMA  (4 
ACCM  LI 
MEMA  PA 4 
ACCM  PAUC 
JMP  MODE55 
MODE57,  A-MZ  (2 
JMP  MODE58 
MEMA  (36 
ACCM  J1 
MEMA  (2 
ACCM  LI 
MEMA  PA 2 
ACCM  PAUC 
JMP  MODE55 
MODE58,  MEMA  (74 
ACCM  J1 
MEMA  (20 
ACCM  LI 

MODE55,  MEMA  N  /SET  COUNTER  WITH  THE  TOTAL  NO.  OF  LINES 
ACCM  COUNT 

/SET  UP  THE  FIXED  PORTION  OF  THE  COMMAND  TABLE 
MEMA  (14 
ACCM  DAT AH 
MEMA  (TALK+CAMERA 
ACCM  TALKP 

ONEM  DUMl  /DATA  IS  PACKED  UNLESS  PRINTED 
MMOZ  PRTFLG 
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ZERM 

DUMl 

M0DE5I , 

ZERM  NBYT5  /I  LOOP 

MEMA 

Jl 

ACCM 

J 

M0DE5J , 

ON EM  COMN  /SEND 

ON  EM 

NLIST 

ZERM 

NDAT 

ZERM 

NDATB 

MEMA 

CO  DM  5 

ACCM 

LIS1S 

MEMA 

(LISTEN+CAMERA 

ACCM 

L1S1P 

JMS 

COM1 

MEMA 

( 4  /POLL 

ACCM 

COMN 

JMS 

COM4 

MEMA 

(2  /RECV 

ACCM 

COMN 

ZERM 

NLIST 

MEMA 

NDATB 1 

ACCM 

NDATB 

JMS 

@ PAUSE 

PAUC , 

0 

JMS 

COM2 

MEMA 

(6  /NICO 

ACCM 

COMN 

MEMA 

BUFS 
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ACCM  NLIST 
MEMA  J 
A-MZ  J1 

MONM  NLIST  /DON'T  RESET  COM6  EXCEPT  WHEN  J  =  1 
JMS  COM6 
MEMA  NWORD 

A+MM  NBYT5  /ACCUMULATE  TOTAL  NO.  OF  BYTES 

MMOMZ  COUNT 

JMP  #+2 

JMP  MOD5JI 

MMOMZ  J 

JMP  MODE5J 

MEMA  ( 4 

ACCM  NTRCK 

JMP  MOD5J2 


MOD5J1, 

MEMA 

NBYT5 

JMS 

o 

0MULTP 

z 

JMS 

@DIVDE 

/DIVIDE  BY 

5 

REMl , 

0 

APOM 

SUM 

/MUST  HAVE  A 

REMAINDER 

MEMA 

REMl 

A-MA 

(3 

SKIP 

AC  19 

MPOM 

SUM 

ZERA  /GET  READY  FOR  DIVIDE 
TACMQ 
MEMA  SUM 
JMS  @DIVDE 
REM2,  0 

ACCM  NTRCK 
MEMZ  REM2 
MPOM  NTRCK 

MOD5J2,  MMOZ  PRTFLG  /PRINT  OR  STORE? 

JMP  MOD5J3 
JMS  @UNPF 
SENDFA 
NWORD,  0 

1  /DATA  IS  NOT  PACKED  FOR  PRINT 

100000 

JMP  MOD5J4 

MOD5J3,  MEMA  NTRCK  /STORE  THE  PACKED  DATA  ON  NTRCKS  TRACKS 
ACCM  K 

MEMA  BUFS  /POINTS  TO  START  OF  BUFFER  AREA 
ACCM  I START 

MOD5K,  JMS  @ WRITE  /START  OF  K  LOOP 
IT,  0 

TRKSZ ,  3000 

I START,  0 
MPOM  IT 
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MEMA  TRKSZ 
A+MM  I START 
MMOMZ  K 
JMP  MOD5K 

MOD5J4,  MEMZ  COUNT 

JMP  MODE5I  /END  OF  I-LOOP 

MMOZ  PRTFLG  /IF  THIS  IS  A  PRINT  FLAG  GOTO  THE  END 
JMP  #+2 
JMP  MOD5E 

MEMA  @SYSTRT  /SAVE  TO  RESTORE 
ACCM  TEMP 

MEMA  INT  /CLOSE  THE  FILE 

RLSH  3  /THE  INTERLACE  NO.  IS  STORED  AS  THE  2  HIGH 

A+MA  N  /ORDER  BITS  OF  THE  PSA  PORTION  OF  THE 

ACCM  @SYSTRT  /DIRECTORY  ENTRY;  THE  NO.  OF  LINES 

MEMA  IT0  /IN  THE  LOW  ORDER  BITS 

ACCM  @OARGl 

MEMA  IT 

A-MA  IT0 

JMS  0MULTP 

3000 

ACCM  @OARG2 
MEMA  BUFS 
ACCM  @OARG3 
JMS  0CLOSE 
FILNM ,  0 

0 

MEMA  TEMP 
ACCM  @SYSTRT 
MOD5E,  JMP  START 
LIST 
/ 

MODE6,  JMS  @UNP 
5 
0 

TEXT  %HEXN-% 

JMS  NIB 
N 

NBY6 ,  0 

MEMA  NBY6 
A-MZ  (5 

JMP  MODE6  /MUST  GET  4  NIBBLES  FOR  ADDRESS  AND 
MEMA  N  /I  FOR  NO.  OF  BLOCKS  (EG.  0C001) 

ANDA  (7 
ACCM  NDATB 
MEMA  N 

RLSH  4  /GET  LOW  ADDRESS 

ANDA  (377  /MASK  IT 

ACCM  DATAL  /STORE  FOR  TRANSMISSION 


T 


MEMA  N 

RLSH  14  /GET  HIGH  ADDRESS 

ANDA  (3  77 

ACCM  DATAH 

ZERM  DUM 1 

MEMA  BUFS 

ACCM  NLIST 

MEMA  (6 

ACCM  COMN 

JMS  COM 6 

MEMA  NBYT1  /TRANSFER  NO.  OF  BYTES  RECEIVED 
ACCM  NBY5  /FOR  POSSIBLE  MODE  7  CALL. 

JMP  START 

/ 

MODE7 ,  ONEM  @SMODE  /SET  UP  FOR  SENDF 
MEMA  (20 
ACCM  @SWCNT 
ACCM  0SWCNT0 
JMS  @C RLF 
JMS  @CRLF 

MEMA  NBY5  /NO.  OF  BYTES 
ACCM  MOD71 
JMS  @UNPF 
SENDFA 
MOD71,  0 
0 

100000 
JMS  (§CRLF 
JMS  @CRLF 
JMP  START 

/ 

MODE8,  JMS  @UNP 

4 
0 

TEXT  %OCT-% 

JMS  laOCT  /PACK  OCTAL  ADDRESS  INTO  MOD8A 
MOD8A 

MMOA  MOD8A  /STORE  POINTER  FOR  CHANGE  WORDS 
ACCM  COUNT 

ZERM  J  /FOR  COUNTING  WORDS 
MOD81,  JMS  @CRLF 

JMS  0UNPF  /DISPLAY  CONTENTS  OF  NEXT  WORD 
TYPE1  /AS  5  HEX  CHARACTERS 

5 

3777777 
MOD8A,  0 

MONM  MOD8A  /CAUSES  UNPF  TO  KEEP  GOING  WITHOUT 
MEMA  (240  /REINITIALIZING 


JMS  @TYPE  /PUT  IN  SPACE 


JMS  NIB  /COLLECT  THE  NIBBLES 
N 

NBY8 ,  0 


//////  COMMAND  SUBROUTINES  ///////////////// 

/ 

//  SUBROUTINE  SEND  (ALIAS  COMl) 

/  REVISION  —  NOVEMBER  25,1980 
/  AUTHOR  —  BARRETT ,TB 

/  PURPOSE  —  SEND  DATA  FROM  CTL  TO  LISTENER(S) 

/  PARAMETERS  USED  —  NONE  PARAMETERS  IN  THE  PARAMETER 
/  TABLE  ARE  USED  ONLY  BY  CTL-SEND 

/////////////////////////////////////////////////////////////// 

*1500 
COMl,  0 

JMS  @WCTL  /TRANSFER  TABLE  VALUES 

TABLA 

24 

JMS  ^MONITOR  /CATCH  TABLE  TRANSFER  BYTE  FROM  COM5 
JMS  ^MONITOR  /WAIT  UNTIL  CTL  IS  DONE 
JMP  yCOMl 

/////////////////////////////////////////////////////////////////////// 

//  SUBROUTINE  RECV  (ALIAS  COM2) 

/  REVISION  —  NOVEMBER  25,1980 
/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  —  TRANSFER  DATA  FROM  TALKER  TO  CTL 
/  PARAMETERS  USED  —  NONE 

/////////////////////////////////////////////////////////////////////// 

COM2,  0 

JMS  yWCTL 

TABLA 

24 

JMS  ^MONITOR 
JMS  ^MONITOR 
JMP  l?COM2 

/ 

//////////////////////////////////////////////////////////////////// 

/ 

//SUBROUTINE  POLL  (ALIAS  COM4) 

/  REVISION  —  JANUARY  19,1981 
/  AUTHOR  —  BARRETT ,TB 

/  PURPOSE  —  CONDUCT  A  SERIAL  POLL  (THE  STATUS  BYTE  IS  TYPED) 

/  PARAMETERS  --  NONE 
COM4,  0 

JMS  @WCTL 

TABLA 

24 

JMS  ^MONITOR 

JMS  ^MONITOR 

ACCM  TEMP  /STORE  STATUS 

RASH  4  /GET  READY  FOR  FIRST  HEX  DIGIT 

JMS  OHEXT 

MEMA  TEMP 

JMS  yH  EXT 


MMOMZ  NCNT 
JMP  COM4E 
MEMA  (44 
ACCM  NCNT 
JMS  @CRLF 
JMS  @ MON I TOR 
COM4E ,  JMP  @COM4 
NCNT,  0 

////////////////////////////////////////////////////////////////////// 

/ 

//  SUBROUTINE  NICI  (ALIAS  COM5) 

/  REVISION  --  DECEMBER  29,1980 
/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  --  WRITE  DATA  PROM  NIC  TO  CTL 
/  PARAMETERS  USED  — 

/  (1)  "I"  FOR  IMMEDIATE  DATA  (THE  DATA  TO  SEND  IS  IN  TABLE 
/  LOCATIONS  2  =>  10),  OR  THE  STARTING  ADDRESS  IN  NIC  OF  THE 
/BLOCK  OF  DATA  TO  BE  SENT  (CAN  NOT  BE  "I"  *  311  OCTAL). 

/  (11)  NO. OF  DATA  WORDS  (1  BYTE/WORD)  TO  BE  SENT  OR 

/  (12)  NO.  OF  256  BYTE  BLOCKS  TO  BE  TRANSFERRED  IF  (11)=0. 

/  (18)  -1  =>  DATA  IS  PACKED  NIBBLES  (WHEN  UNPACKING  ADD  OCTAL  60 
/  TO  TRANSFORM  TO  ASCII  NUMBER. 

/  0  =>  DATA  IS  PACKED 

/  1  =>  DATA  IS  UNPACKED  ( 5BYTES  IN  2  WORDS) 

/ 

/  NOTE  —  THE  STARTING  ADDRESS  IN  (1)  CAN  BE  -1  TO  INDICATE  THAT 
/  THE  UNPACKING  PROCESS  SHOULD  CONTINUE  FROM  WHERE  IT  LEFT 
/  OFF  ON  THE  PREVIOUS  CALL  TO  UNPF. 
////////////////////////////////////////////////////////////////////// 
COM5 ,  0 

JMS  @WCTL 
TABLA 
24 

JMS  @ MONITOR 
MEMA  DUMl 
ACCM  FLAG 5 
ACCM  SCTLC 

MEMA  NLIST  /IT  IS  IMMEDIATE  MODE  ? 

A-MZ  ("I 
JMP  #+2 
MEMA  (TABLA+2 
ACCM  STADD5 
MEMAZ  NDAT 
JMP  #+2 
JMP  #+3 
ACCM  NBYTE5 
JMP  COM 51 
MEMAZ  NDATB 


ZERZ 

JMP  COM5  3 

ACCM  COUNTS  /DO  ADD  INSTEAD  OF  MULT 


ZERA 


A+MA  {400 
MMOMZ  COUNTS 
JMP  #-  2 
ACCM  NBYTE5 
COM51,  JMS  @UNPF 
SCTL 

NBYTE5,  0 
PL AG 5,  0 

ST ADD 5,  0 

COM53,  CTLCP 
JMS  @ MON I TOR 
JMP  @COM5 

//////////////////////////////////////////////////////////////////// 

/ 

//SUB  ROUTINE  NICO  (ALIAS  COM6) 

/  REVISION  --  DECEMBER  29,1980 
/  AUTHOR  —  BARRETT ,TB 
/  PURPOSE  —READ  DATA  FROM  CTL  TO  NIC 
/  PARAMETERS  USED  — 

/  (1)  "I"  FOR  DATA  TO  BE  STORED  IN  TABLE  LOCATIONS  2  =>  10, 

/  OR  STARTING  ADDRESS  FOR  DATA  STORAGE. 

/  -1  MEANS  USE  LAST  ADDRESS  FROM  PRIOR  RUN 

/  (11)  NO.  OF  DATA  WORDS  TO  BE  TRANSFERRED  OR 

/  (12)  NO.  OF  256  BYTE  BLOCKS  TO  BE  TRANSFERRED  IF  ( 11 ) =0 . 

/  (18)  1  »>  DO  NOT  PACK  THE  DATA 

/  0  =>  PACK  THE  DATA  (5  BYTES/2  WORDS) 

COM  6 ,  0 

JMS  @WCTL 

TABLA 

24 

JMS  @ MONITOR 

MEM A  DUMl 

ACCM  FLAG 6 

MEMA  NLIST 

A-MZ  ("I 

JMP  #+2 

MEMA  (TABLA+2 

ACCM  STADD6 

MEMAZ  NDAT 

JMP  #+2 

JMP  #+3 

ACCM  NBYT1 

JMP  COM 61  /NOT  0 

MEMAZ  NDATB 

ZERZ 

JMP  COM 6 3  /NOTHING  TO  TRANSFER 

ACCM  COUNTS 

ZERA 

A+MA  (400 
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MMOMZ  COUNTS 
JMP  #-2 
ACCM  NBYTl 
COM6 1 ,  JMS  @PAKF 
MONITA 
NBYTl ,  0 

FLAG 6 ,  0 

STADD6,  0 
0 

COM63,  JMS  @MONITOR 
JMP  @COM6 

////////////////////////////////////////////////////////////// 

/ 

/  SUBROUTINE  SCTL 
/  PURPOSE  —  SEND  BYTE  TO  CTL 

/  THERE  ARE  2  MODES  OF  OPERATION  SET  BY  SCTLC.  IF  SCTLC=-1 
/  THE  BYTE  IS  SENT  AS  ASCII  (60H  IS  ADDED  TO  ACC),  OTHERWISE 
/  IT  IS  SENT  WITH  NO  CHANGE.  SCTL  MAY  BE  ABORTED 
/  BY  TYPING  ANY  CHARACTER  ON  THE  TTY  IN  CASE  THE  CTL 
/  GETS  HUNG. 

*1650 
SCTL,  0 

MPOZ  SCTLC 
ZERZ 

A+MA  (60 
CTLWR 

SCI,  CTLSK 
JMP  SC2 
JMP  @SCTL 
SC2 ,  TTYRF 
JMP  SCI 
JMP  0ABORT 
SCTLC,  0 


- 


/  SCRATCH  STORAGE 
COUNTS,  0 

/ 

/  ADDRESSES 
TABLA=0 
SENDFA=4  242 
SCTLA=1 650 
MONITA=2123 
WPNTD=34 14 
PENDA=1770 
/  EXTERNALS 
MONITOR,  MONITA 
HEXT,  2330 
ECHO,  2257 
OPENW,  2420 
OPENR,  2432 
CLOSE,  2451 
WRITE,  2470 
READD,  2511 
PRTOCT,  2605 
UNP,  2650 
TYPE,  2731 
CRLF ,  2736 

UNPF ,  2750 

PAKF ,  3074 

PKR,  3240 
DEC,  3310 
NIBBIN,  3470 
TEKHEX,  3565 
NICFIL,  4010 
SEARCH,  4070 
ZERTAB,  4160 
MULTP,  4175 
DIVDE,  4213 
WCTL,  2136 
GETFIL,  4313 
PAUSE,  4362 
OCT,  4371 

/  DEFINITIONS  AND  COMMON 
OARG1,  7770 
OARG2,  7771 
OARG3 ,  777  2 

PEND,  PENDA  /PAGE  END  FOR  SCRATCH  STORAGE 

BUFS,  100000 

SMODE,  SENDFA+47 

SWCNT,  SENDFA+46 

SWCNT0 ,  SENDFA+50 

ABORT,  4  700 

SYSTRT,  7600 
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PCOUNT,  3223 
/  CONSTANTS 
PRI,  606251 
T3 ,  3000 

PAl ,  400  /PAUSE  CONSTANTS 

PA 2 ,  1000 

PA4 ,  100000 
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///////////  SERVICE  SUBROUTINES  ///////////// 

/ 

//  FUNCTION  ERROR 
/  REVISION  --  JANUARY  2271981 
/  AUTHOR  --  BARRETT ,TB 

/PURPOSE  --  WHEN  CTL-ERROR  IS  JUMPED  TO  A  SERVICE  BIT  IS  SET.  WHEN 
/  MONITOR  fINDS  THIS  ,  IT  JUMPS  TO  ERROR  WHICH  PRINTS 
/  OUT  SOME  ERROR  MESSAGES  AS  FOLLOWS- 
/  (1)  THE  NIC  COMMAND  BEING  EXECUTED 

/  (2)  A  CTL  ERROR  STATUS  BYTE  (USUALLY  CONTENTS 

/  OF  THE  A  REGISTER) 

/  (3)  THE  PROGRAM  COUNTER  OF  NIC  AT  THE  ERROR 
/  (4)  THE  PROGRAM  COUNTER  OF  CTL  AT  THE  ERROR 

/ 

/  NOTE  THAT  ON  ENTRY  TO  ERROR  ACC  IS  ASSUMED  TO  HOLD  THE 
/  ERROR  STATUS  BYTE 
CTLCF=4062 
CTLRD=44  0  6  4 
CTLRDC=*44066 
CTLSK  =  6  064 
CTLWR=40  71 
CTLRS=40  72 
*2020 
ERROR,  0 

ACCM  STAT  /STORE  STATUS 
JMS  @UNP 
14 
0 

TEXT  %E RROR  IN  COM% 

MEMA  (STABLE 

A+MA  (260  /COMMAND  NO.  TO  ASH 

JMS  0TYPE 

JMS  6?UNP 

23 

0 

TEXT  *, STATUS  BYTE  <HEX)*% 

MEMA  STAT 

RASH  4  /CHANGE  TO  HEX  ASCII 
JMS  H  EXT 
MEMA  STAT 
JMS  HEXT 
JMS  0CRLF 
JMS  0CRLF 
JMS  @UNP 
14 
0 

TEXT  *NIC  PC (OCT) *% 

MEMA  ERROR 
AMOA 

JMS  (SPRTOCT 


J  MS  0CRLF 
JMS  yUNP 
14 
0 

TEXT  %CTL  PC (HEX )  =  % 

JMS  RCTL 
ACC  M  TEMP 
RASH  4 
JMS  HEXT 
MEMA  TEMP 
JMS  HEXT 

JMS  RCTL  /GET  LOW  ORDER  ADDRESS 

ACCM  TEMP 

RASH  4 

JMS  HEXT 

MEMA  TEMP 

JMS  HEXT 

JMS  @CRLF 

JMS  RCTL  /GET  NORMAL  RETURN  BYTE 

JMP  esYSTRT  /RETURN  TO  NIC  MAIN  MONITOR  ON  ERROR 
STAT,  0 
TEMP,  0 

/ 

//FUNCTION  MONITOR 
/  REVISION  —  JANUARY  22,1981 
/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  --  "MONITOR"  INPUT  FROM  CTL.  IT  READS  DATA  FROM  CTL 
/  AND  JUMPS  TO  ERROR  IF  SRVC  BIT  IS  SET.  OTHERWISE  IT 
/  RETURNS  THE  BYTE  READ  IN  ACC. 

/ 

SRVC=400 
MONITOR,  0 
MONl ,  CTLSK 
JMP  MON2 
CTLRDC 
ANDZ  (SRVC 
JMS  ERROR 
JMP  ^MONITOR 
MON2,  TTYRF 
JMP  MONl 
ROTTY 

JMP  @ABORT 

/ 

//SUBROUTINE  WCTL (STADD ,NBYTES) 

/  REVISION  ~  JANUARY  22,1981 
/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  —  TRANSFER  NBYTES  OF  DATA  FROM  NIC  MEMORY  STARTING  AT 
/  ADDRESS  STADD  TO  CTL 


>!■'-— —rr 
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/  PARAMETERS  — 

/  STADD  STARTING  ADDRESS  OF  DATA  BLOCK  IN  NIC 
/  NBYTES  SIZE  OF  DATA  BLOCK  IN  BYTES  (I  BYTE/NIC  WORD 


/ 


WCTL, 

0 

ZERM 

0SCTLC 

MEMA 

@WCTL 

ACCM 

POINT  /POINTS  TO  DATA  BLOCK 

MPOM 

WCTL  /GET  COUNT 

MEMA 

@WCTL 

ACCM 

COUNT 

MPOM 

WCTL  /SET  FOR  RETURN  FROM  WCTL 

WCTLI , 

MEMA  @ POINT  /GET  NEXT  DATUM 

JMS 

@SCTL 

MPOM 

POINT 

MMOMZ 

COUNT 

JMP 

WCTLI 

CTLCF 

1  /CLEAR  DONE  ON  LAST  WRITE 

JMP 

@WCTL 

POINT, 

0 

COUNT, 

0 

/ 

/ 

RCTL,  0 
CTLSK 
JMP  #-l 
CTLRDC 
JMP  0RCTL 
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//PROGRAM  CTLTST 

/REVISION  —  JANUARY  22,1981 
/  AUTHOR  — BARRETT, TB  &TERPSTRA,  D  (U.  OF  FLORIDA) 
/PURPOSE  READS  CTL  "REGISTERS"  ( RHH ) 

/  WRITES  CTL  "REGISTERS"  (WHH ) 

/  CLEARS  CTL  (C) 

/ 

/  WHERE  HH  IS  2  HEX  CHARACTERS  REPRESENTING 
/  THE  REGISTER  (SEE  WRITEUP  ON  NIC-488/CTL) 

/ 

/DEFINITIONS  FOR  I/O  COMMANDS  TO  CTL 

/ 

*2170 

START,  J  MS  ECHO 
ZERM  @SCTLC 

ONEM  CC  /CC  IS  USED  TO  HOLD  READ  WRITE  BIT 
ZERM  TBIT 
A-MZ  ("R 
ZERZ 

JMP  SEND 
ZERM  CC 
A-MZ  ("W 
ZERZ 

JMP  SEND 
A-MZ  ("C 
ZERZ 

JMP  RESET 

ERR,  MEMA  ("?  /ILLEGAL  CHAR 
JMS  i^TYPE 
JMP  START 

SEND,  MEMA  CC 
LLSH  3 
ACCM  CC 

SENDl  ,  JMS  ECHO 

JMS  VALID  /NORMAL  RETURN  ONLY  IF  VALID  HEX  CHAR 
LLSH  4 
ACCM  SCHAR 
JMS  ECHO 

JMS  VALID  /8  BITS  IS  2  HEX  CHARS 
A+MMA  SCHAR 

A+MA  CC  /ADD  READ  WRITE  BIT 

JMS  @SCTL 

CTLCF 

MEMZ  CC 

JMP  SEND2 

MEMZ  TBIT 

JMP  SEND2 

ONEM  TBIT 
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MEMZ  SCHAR  /IF  W00  THEN  SEND  DATA  TO  CTL 
JMP  #+5 
JMS  @WCTL 
100000 


2000 

JMP 

@CALLS 

MEMA 

("- 

JMS 

@TYPE 

JMP 

SENDl 

SEND2  , 

ACCM  SSIG 

RASH 

4  /SHIFT  FOR 

HIGH  NIB 

JMS 

HEXT  /CONVERT 

IT  TO  ASCII 

MEMA 

SSIG 

JMS 

HEXT  /CONVERT 

2ND  CHAR 

JMS 

@CRLF 

JMP 

START 

SCHAR, 

0 

SSIG, 

0 

CC,  0 
TBIT, 

0 

ECHO, 

0 

JMS 

READ 

A-MZ 

(221  /~Q 

ZERZ 

JMP 

@ABORT 

A-MZ 

(207  /~G 

ZERZ 

JMP 

@CALLS 

JMS 

0TYPE 

JMP 

0ECHO 

READ, 

0 

TTYRF 

JMP 

#-l 

RDTTY 

JMP 

@READ 

RESET, 

CTLRS 

JMP 

START 

VALID,  0  /PUTS  OCTAL  EQUIVALENT  FOR  HEX  ASCII  IN  ACC 
ACCM  VC  /LEGAL  CHARS  ARE  260-272  (DIGITS) 

A-MA  (260  /AND  301-310  (A-F) 

EXCT  AC 19 
JMP  ERR  /<  0 
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MEMA  VC 
A-MA  (272 
EXCT  AC  19 

JMP  NUM  /CHAR  IS  LEGAL 

MEMA  VC 

A-MA  (300 

EXCT  AC 19 

JMP  ERR  /<  A 

MEMA  VC 

A-MA  (310 

SKIP  AC  19 

JMP  ERR  />  F 

LETTER,  MEMA  VC  /ITS  A  LETTER 
A-MA  (267  /A-300+11 

JMP  @ VALID 

NUM,  MEMA  VC 


A-MA 

("0 

/STRIP  OFF  BIAS 

JMP 

@VALID 

VC, 

0 

HEXT, 

0  /MASKS  AND  TYPES  AS  HEX 

ACCM 

HT 

/SAVE  ACC 

MEMA 

HCl 

/INITIALIZE  POINTER 

ACCM 

HP 

MEMA 

HT 

/RECALL  ACC 

ZERM 

HC 

/COUNTER 

AN  DA 

K  17 

/MASK  LOWER  NIBBLE 

A-MZ 

HC 

/MATCH  COUNTER  ? 

ZERZ 

JMP 

HTYPE 

MPOM 

HC 

/NO,  BUMP  COUNTER 

MPOM 

HP 

JMP 

#  -5 

HTYPE , 

MEMA 

@HP 

J  MS 

@TYPE 

JMP 

0HEXT 

/  TEMP 

STORAGE  AND  TABLE 

K  17  , 

17 

HC,  0 
HC1 ,  HTOP 
HP,  0 
HT,  0 
HTOP,  260 
261 
262 

263 

264 

265 
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266 

267 

270 

271 

301 

302 

303 

304 

305 

306 

/ 

/  EXTERNALS  (INCLUDES  COMMON  AND  TABLES) 

UNP,  2650 

CRLF ,  2736 

PRTOCT,  2605 

SYSTRT,  7600 

TYPE,  2731 

ABORT,  4  700 

CALLS,  71 

TABLE,  0 

SCTL,  1650 

SCTLC ,  166  3 
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//  I/O  SUBROUTINES  OPENW , OPENR , CLOSE , WR ITE , READD 
//SUBROUTINE  OPENW 
/  REVISION  —  JANUARY  26,1981 
/  AUTHOR  -  BARRETT ,TB 

/  PURPOSE  ~  OPENS  A  FILE  BY  LOCATING  THE  NEXT  AVAILABLE 
/  TRACK  AND  AMOUNT  OF  SPACE  AAILABLE. 

/ 

/  PARAMETERS  —  NONE.  TRACK  AND  SPACE  ARE  RETURNED  IN  OARG1 
/  (7770)  AND  OARG2  (7771)  RESPECTI VELY , I F  OARG2=0. 

/  IF  OARG2  IS  SET  TO  THE  NO.  OF  WORS  IN  THE  FILE, OPENW 
/  NOTE  —  SET  OARG1  TO  0  BEFORE  CALLING. 

/  WILL  FIND  THE  FIRST  AVAILABLE  SPACE. 

*2420 
OPENW,  0 

J  MS  UIRFIN 
MONM  0DISOLV 
J  MS  ^DIRFUN 
1 
2 

NOFIL  /POINTS  TO  A  VALUE  OF  0 
A  CCA 

J  MS  D I  ROUT 
JMP  ROPENW 

/ 

//  SUB  ROUT  I  NI  ,/PKNR  i  FI  I.NAM  i 
REVISION  --  DICEMIU  R  10,1980 
A;  THOR  -  -  BARRETT  ,TB 

PURPOSE  --  jPLNS  A  FILE  FUR  READING  BY  RETURNING  THE  STARTING 
/  TRACK. FILE  SIZE  AND  I  TCATION  IN  CORE  FOR 
STORAGE  (AS  GIVEN  BY  HE  DIRECTORY) 

/  AUGMENTS  -- 

/  Ml. NAM  -  2  WORD  PACKED  FILE  NAME  OF  THE  FILE  TO  BE  OPENNED. 

/  LOCATIONS  OARG 1 ,OARU2 ,OARG 1  CONTAIN  TRACK, SIZE  AND  CORE  LOCATION  FOR 
/  THE  FILE  RESPECTIVELY.  IE  THE  FILE  IS  NOT  FOUND,  OARG 1  CONTAINS  -1. 
OPEN R,  0 

MEMA  rfOPENR  /FILENAME 

ACCM  FILNM 
MPOM  OPENR 
MEMA  0OPENR 
ACCM  FILNMH 

MPOM  OPENR  /SET  RETURN  ADDRESS 

J  MS  OIHFIN 
JMS  i*D  I  HFUN 
1 

2 

FI  LNM 

MONM  0OARGI  /FILE  DOES  NOT  EXIST 

JMS  DIROUT  /RESTORE 

JMP  HOPENR 

/ 


//  SUBROUTINE  CLOSE (FILNAM) 

/  PURPOSE  —  ADD  A  FILE  TO  THE  DIRECTORY 
/  PARAMETERS  - 

/  FILNAM  -  6  CHAR.  (PACKED  FORM)  FILE  NAME  (2  WORDS) 

/  CONTROL  RETURNS  AFTER  THE  FILE  NAME 
/  BEFORE  CALLING  PUT  THE  STARTING  TRACK  IN  7770  AND  THE 
/  FILE  SIZE  (WORDS)  IN  7771.  THE  CODE  ADDRESS  CAN  BE  PUT  INTO 
/  OARG3  AND  THE  STARTING  ADDRESS  IN  SYSTRT. 

CLOSE,  0 

MEMA  @CLOSE  /TRANSFER  FILENAME 
ACCM  FILNM 
MPOM  CLOSE 
MEMA  @CLOSE 
ACCM  FILNM+1 
MPOM  CLOSE 
JMS  DIRFIN 
JMS  @DIRFUN 
1 
1 

FILNM 
ACC  A 

JMS  DIROUT 
JMP  @CLOSE 

/ 

//  SUBROUTINE  WRITE (IT, SIZE, ISTART) 

/  PURPOSE  —  SIMPLE  WRITE  TO  DISK  USING  DEMON  II  DISK 
/  PARAMETERS  — 

/IT  -  STARTING  TRACK 

/  SIZE  -  NO.  PF  WORDS  IN  BUFFER  (STARTS  AT  ISTART) 

/  ISTART  -  STARTING  ADDRESS  OF  BLOCK  TO  TRANSFER. 

WRITE,  0 

MEMA  @WRITE 
A+MA  DNO 
ACCM  IT 
MPOM  WRITE 
MEMA  @WRITE 
ACCM  SIZE 
MPOM  WRITE 
MEMA  0WRITE 
ACCM  ISTART 

MPOM  WRITE  /RETURN  ADDRESS 
JMS  @DISK 
IT,  0 
SIZE,  0 
ISTART,  0 
JMP  @WRITE 
DNO,  100000 

//  SUBROUTINE  READD (IT, SIZE) 

/  REVISION  —  NOVEMBER  29,1980 
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/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  —  READ  TRACK  IT  OF  SIZE  WORDS  INTO  BUFFER 
/  STARTING  AT  100000.  NOTE  THAT  IF  SIZE  IS  GREATER 
/  THAN  A  TRACK,  MORE  THAN  1  TRACK  WILL  BE  READ. 
READD,  0 

MEMA  @READD 

A+MA  DNO  /ADD  THE  DISK  NO. 

ACCM  ITT 
MPOM  READD 
MEMA  @READD 
ACCM  SIZZ 

MPOM  READD  /SET  RETURN 
ZERA  /SIGNALS  READ 
JMS  @DISK 
ITT,  0 
SIZZ,  0 
1 00000 
JMP  @READD 

/ 

DIRFIN,  0  /READ  OUT  3000-7600 , READ  IN  DIRFUN 
ONEA 

JMS  @DISK 
100001 
4  600 
3000 

ZERMA  @DERR  F 
JMS  @D  ISK 
100007 
6  00 
7000 
ACCA 

ZERM  0DEVDET 
JMP  ^DIRFIN 
// 

DIROUT,  0  /READ  BACK  3000-7600 
ZERMA  fcDERRF 
JMS  @D ISK 
100001 
4  600 
3000 
ACCA 

JMP  @DIROUT 

/ 

/  DEMON  II  REFERENCES 
DIRFUN,  7000 
DISK,  7612 
DERRF ,  7704 

DISOLV ,  77  51 

DEVDET,  7764 
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0ARG1 ,  7770 

OARG2 ,  7771 

OARG3 ,  7772 

/  SCRATCH  STORAGE 
FILNM ,  BLOCK  2 
NOFIL ,  0 


//  FUNCTION  PRTOCT (X) 

/  REVISION  —  JANUARY  22,1981 
/  AUTHOR  "  BARRETT, TB 

/  PURPOSE  —  PRINT  THE  OCTAL  VALUE  OF  THE  CONTENTS  OF  ACC 

/ 

/ 

*2605 

PRTOCT ,  0 

LLSH  2 
ACCM  TEMP 
ANDA  (3 
A+MA  (260 
JMS  TYPE 

MEMA  (7  /SET  COUNTER 
ACCM  COUNT 
PRTOl ,  MMOMZ  COUNT 
JMP  #+2 
JMP  PRT02 
MEMA  TEMP 
LLSH  3 

ACCM  TEMP  * 

ANDA  (7 
A+MA  (260 
JMS  TYPE 
JMP  PRTOl 
PRT02,  MEMA  (215 
JMS  TYPE 
MEMA  (212 
JMS  TYPE 
JMP  @ PRTOCT 
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//  SUB ROUT IN  UNP (NC ,  INDIC ,TEXT) 

/REVISION  --NOVEMBER  22,1980 
/AUTHOR  —  BARRETT, TB 

/PURPOSE  —  UNPAK  PACKED  ASCII  AND  SENDS  TO  TTY  FOR  PRINTING. 
/  AN  OPTIONAL  CR/LF  IS  SENT  ALSO. 

/ 

/PARAMETERS  — 

/  NC  NO.  OF  CHARACTERS  IN  THE  PACKED  TEXT.  IF  0,  THE 
/  TEXT  IS  ASSUMED  TO  BE  TERMINATED  WITH  77  (%)  AND  NC  IS 
/  RETURNED  AS  THE  NO.  OF  TEXT  CHARACTERS  (NOT  INCLUDING  %) 

/  INDIC  0  =>  NO  CR/LF,  1  =>  CP/LF  AT  END  OF  TEXT. 

/  TEXT  THE  PACKED  TEXT. 

/ 

*2650 
UNP  ,0 

MEMA  UNP  /STORE  ADDRESS  OF  NC 

ACCM  NC 

MPOM  UNP  /STORE  INDIC 

MEMA  @UNP 
ACCM  INDIC 

ONEM  INDIX  /SET  PRINT/NOPRINT  INDICATOR 

ZERM  NCC  /SET  CHARACTER  COUNTER  TO  0 

ONEM  COUNT  /INITIALIZE  1,2,3  COUNTER 
LOOP,  MMOMZ  COUNT  /DECREMENT  COUNTER.  IF  0  GET  NEXT  WORD 
JMP  LI  /IF  NOT  0,  TYPE  CHARATER 
MEMA  (3  /REINITIALIZE  COUNTER 
ACCM  COUNT 

MPOM  UNP  /POINT  TO  NEXT  WORD  IN  TEXT 
MEMA  @UNP  /GET  WORD  AND  SHIFT  IT 
LLSH  8 

ACCM  WORD  /STORE  IT  FOR  FURTHWR  WORK 
LI,  ANDA  (77  /MASK  6  LSDS 

A-MZ  (77  /CHECK  FOR  END  OF  TEXT 

JMP  #+2 

JMP  END 

MEMZ  @NC 

JMP  #+2 

JMP  L3 

ACCM  TEMP 

MEMA  @NC 

A-MZ  NCC  /CHECK  TO  SEE  IF  NC  CHARS.  SENT 
JMP  #+2 

ZERM  INDIX  /IF  INDIX  IS  0,  CHARACTERS  ARE  NOT  PRINTED 
MEMA  TEMP 

L3,  MEMZ  INDIX  /IF  0,  DON'T  PRINT 
JMP  #+2 
JMP  #+4 
MPOM  NCC 

A+MA  (240  /CONVERT  TO  UNPACKED  ASCII 

JMS  TYPE 


MEMA  WORD 

LLSH  6  /SHIFT  &STORE  FOR  NEXT  CHAR. 
ACCM  WORD 

JMP  LOOP  /GET  NEXT  CHAR. 

END,  MEMAZ  INDIC 
JMS  CRLF 

MPOM  UNP  /SET  FOR  RETURN 
MEMA  NCC 

ACCM  @NC  /RETURN  CHAR.  COUNT 
JMP  @UNP 
NCC ,  0 

NC,  0 
INDIX,  0 
/ 

///////  SUBROUTINE  TYPE  ////// 

TYPE,  0 
TTYPF 
JMP  #-l 
PRTTY 

JMP  @TYPE 

/ 

//////  SUBROUTINE  CRLF  ////////// 

CRLF,  0 
MEMA  (212 
JMS  TYPE 
MEMA  (215 
JMS  TYPE 
JMS  TYPE 
JMP  @CRLF 
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//  SUBROUTINE  UNPF (SENDF ,NBYTES , FLAG .STARTA) 

/  REVISION  —  DECMEBER  24,1980 
/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  —  TRANSFER  DATA  FROM  CORE  TO  A  DESTINATION  SPECIFIED  BY 
/  SENDF,  THE  DATA  MAY  BE  UNPACKED  IN  THE  PROCESS. 

/ 

/  PARAMETERS  — 

/  SENDF  -  ENTRY  POINT  FOR  ACCEPTING  A  WORD  IN  ACC  (E.G.  TYPE) 

/  NBYTES  -  NO.  OF  BYTES  TO  BE  TRANSFERRED.  (FOR  PACKED  DATA 
/  THERE  ARE  2.5  BYTES/NIC  WORD) 

/  FLAG  -  1  ->  DO  NOT  UNPACK 

/  0  »>  UNPACK 

/  -1  *>  UNNIBBLE  (5  NIBBLES/WORD) 

/  STARTA  -  STARTING  ADDRESS  AT  WHICH  TO  OBTAIN  DATA.  IF 
/  SET  TO  -1,  UNPF  WILL  USE  THE  POINTER  FROM  THE  PREVIOUS  CALL. 
*2750 
UNPF,  0 

MEMA  OUNPF 
ACCM  SENDF 
MPOM  UNPF 
MEMA  @UNPF 
ACCM  COUNT 
MPOM  UNPF 
MEMA  @UNPF 
ACCM  UNPFLG 
MEMA  (17 
MPOZ  UNPFLG 
MEMA  (377 
ACCM  MASK 
MPOM  UNPF 
MEMA  (?UNPF 

EXCT  AC  19  /IF  NEC.  THEN  DONT  INITIALIZE 
JMP  UNPFX 
ACCM  POINT 
JMP  UNPF 1 

UNPFX,  MMOZ  UNPFLG  /TEST  FLAG 
JMP  UNPF  Z 

UNPF 1 ,  MEMA  ^ POINT 
MPOM  POINT 
MMOZ  UNPFLG 
JMP  UNPFY 
JMS  @SENDF 
MMOMZ  COUNT 
JMP  UNPF 1 
JMP  UNPFE 
UNPFY,  ACCM  TEMP 
MEMA  (6 
ACCM  B COUNT 
JMP  #P4 

UNPF2 ,  MMOMZ  COUNT 


r 


JMP 

#+2 

JMP 

UNPFE 

UNPFZ , 

MMOMAZ  BCOUNT 

JMP 

#+2 

JMP 

UNPF1 

A-MZ 

(5 

JMP 

UNPF3 

UNPF22 , 

MEMA  TEMP 

MPOZ 

UNPFLG 

LLSH 

4 

LLSH 

4 

ACCM 

TEMP 

UNPF21 , 

ANDA  MASK 

JMS 

@SENDF 

JMP 

UNPF2 

UNPF3 , 

A-MZ  (4 

JMP 

UNPF4 

UNPF33  , 
ZERZ 

MPOZ  UNPFLG 

JMP 

UNPF22 

MEMA 

TEMP 

RISH 

4 

AN  DA 

(360 

ACCM 

TEMPI 

JMP 

UNPF22 

UNPF4 , 

A-MZ  (3 

JMP 

UNPF5 

MPOZ 

ZERZ 

UNPFLG 

JMP 

UNPF22 

MEMA 

@POINT 

MPOM 

POINT 

LLSH 

4 

ACCM 

TEMP 

ANDA 

(17 

A+MA 

TEMPI 

JMS 

l^SENDF 

JMP 

UNPF2 

UNPF5, 

JMP  UNPF22 

UNPFE, 

MPOM  UNPF  /RETURN 

JMP 

l§UNPF 

SENDF  , 

0 

COUNT, 

0 

UNPFLG, 

0 

POINT, 

0 

TEMP, 

0 

BCOUNT, 

0 

TEMPI , 

0 

TEMP2  , 

0 
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MASK ,  0 

////////////////////////////////////////////////////////////////////// 

/ 

//  SUBROUTINE  PAKF (RECVF ,NBYTES , FLAG ,STARTA,NBYTR) 

/  REVISION  —  DECEMBER  31,1980 
/  AUTHOR  —  3ARRETT ,TB 

/  PURPOSE  --  TRANSFER  DATA  GIVEN  BY  RECVF  TO  CORE. 

/  THE  DATA  MAY  BE  PACKED  IN  THE  PROCESS.  (THIS  IS  THE  INVERSE 
/  OF  UNPF ) .  USE  OF  ARGUMENTS  IS  THE  SAME  AS  IN  UNPF  EXCEPT- 
/  RECVF  GETS  A  DATA  BYTE  AND  GIVES  IT  TO  PACKF  VIA  ACC.  NOTE 
/  THAT  IT  MAY  BE  NECESSARY  FOR  RECVF  TO  CONTROL  THE  NUMBER  OF 
/  BYTES  TRANSFERRED  BY  STICKING  A  1  IN  COUNT1  WHEN  THE  LAST 
/  BYTE  HAS  BEEN  RECEIVED  (E.G.  AN  EOF  MARK  IS  DETECTED) 

/  NBYTR  -  NO.  OF  BYTES  RECEIVED. 

//////////////////////////////////////////////////////////////////// 


PAKF, 

0 

MEMA 

@PAKF 

ACCM 

RECVF 

MPOM 

PAKF 

MEMA 

@PAKF 

ACCM 

COUNT1 

MPOM 

COUNT1 

MPOM 

PAKF 

MEMA 

@PAKF 

ACCM 

PAKFLG 

MPOM 

PAKF 

MEMA 

@PAKF 

EXCT 

AC19 

JMP 

PAKFX 

ACCM 

POINT1 

MEMA 

(6 

ACCM 

BCNT 

ZERM 

NBYTES 

ZERM 

WORD 

PAKFX , 

MMOZ  PAKFLG 

JMP 

PAKF  2 

PAKFl , 

MMOMZ  COUNTl 

JMP 

#+2 

JMP 

PAKFF 

JMS 

@RECVF 

MPOM 

NBYTES 

ACCM 

@POINTl 

MPOM 

POINT1 

JMP 

PAKFl 

PAKF2, 

MMOMZ  COUNTl 

JMP 

#+2 

JMP 

PAKFE 

MMOMZ  BCNT 

JMP 

#  +  3 
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MEMA 

(5 

ACCM 

BCNT 

JMS 

(dRECVF 

ACCM 

TMP 

MPOM 

NBYTES 

MEMA 

BCNT 

A-MZ 

(5 

JMP 

PAKF3 

PAKF22 

,  MEMA  TMP 

RLSH 

10 

A+MM 

WORD 

JMP 

PAKF2 

PAKF3 , 

A-MZ  (4 

JMP 

PAKF4 

MEMA 

TMP 

LLSH 

4 

A+MM 

WORD 

JMP 

PAKF2 

PAKF4 , 

A-MZ  (3 

JMP 

PAKF5 

MEMA 

TMP 

RISH 

4 

A+MA 

WORD 

ACCM 

@POINTl 

MPOM 

POINT1 

MEMA 

TMP 

AN  DA 

(17 

RLSH 

4 

ACCM 

WORD 

JMP 

PAKF2 

PAKF5, 

A-MZ  (2 

JMP 

PAKF6 

MEMA 

TMP 

LLSH 

10 

A+MM 

WORD 

JMP 

PAKF2 

PAKF6 , 

MEMA  TMP 

A+MA 

WORD 

ACCM 

t^POINTl 

MPOM 

PO INTI 

ZERM 

WORD 

JMP 

PAKF2 

PAKFE, 

MMOZ  BCNT 

ZERZ 

JMP 

#  +  3 

MEMA 

WORD 

ACC  M 

@POINTl 

PAKFF , 

MPOM  PAKF 

MEMA 

NBYTES 
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ACCM  @PAKF 
MPOM  PAKF 

JMP  @PAKF  /NOTE  THAT  WE  HAVE  TO  STORE  THE  LAST  UNFILLED  WORD 
/  WHICH  MAY  BE  LATER  OVER  WRITTEN. 

RECVF,  0 
COUNTl ,  0 

POINTl ,  0 

PAKFLG,  0 
NBYTES,  0 
TMP ,  0 

WORD,  0 
BCNT,  0 
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//  SUBROUTINE  PKR (FILNAM ,NF) 

/  REVISION  --  JANUARY  22,1981 
/  AUTHOR  —  BARRETT  ,TB 

/  PURPOSE  —  PACK  USER  GIVEN  CHARACTERS  INTO  A  2-WORD 
/  "FILE-NAME".  THE  2  MOST  SIGNIFICANT  BITS 
/  OF  THE  FILENAME  ARE  00. 

/  ARGUMENTS  — 

/  FILNAM  -  ADDRESS  OF  THE  FIRST  WORD  OF  THE  FILENAME 
/  NF  -  (RETURNED)  THE  NO.  OF  CHARACTERS  IN  THE  FILENAME. 
*3240 
PKR,  0 

MEMA  tJPKR 

ACCM  ADDR  /STORE  THE  ADDRESS  OF  THE  FILENAME 
ZERM  £ADDR 
MPOAM  PKR 

ACCM  NF  /STORE  ADDRESS  FOR  RETURNING  NF 
ZERM  @NF 
MEMA  (6 
ACCM  COUNT 

ZERM  INDIC  /SET  CR  INDICATOR 
PKRl ,  A-MZ  (3 
JMP  #+3 
MPOM  ADDR 
ZERM  @ADDR 

MEMZ  INDIC  /IF  INDIC  HAS  BEEN  SET  THEN  JUST  SHIFT 
JMP  PKR 2 
J  MS  0ECHO 
A-MZ  (215 
JMP  #+4 
ON EM  INDIC 
ZERM  TEMP 
JMP  PKR2 
MPOM  @NF 
A-MA  (240 
ACCM  TEMP 
PKR2,  MEMA  @ADDR 
LLSH  6 
A+MA  TEMP 
ACCM  @ADDR 
MMOMAZ  COUNT 
JMP  PKRl 

MPOM  PKR  /INCREMENT  FOR  RETURN 
JMP  ii)PKR 
ADDR,  0 
NF,  0 
INDIC,  0 
/ 

/  EXTERNALS 
ECHO,  2257 


//  SUBROUTINE  DEC 

/  REVISION  --  DECEMBER  30,1980 
/  AUTHOR  — BARRETT ,TB 

/  PURPOSE  --  TRANSFORM  A  PACKED  ASCII  HEX  STRING  TO  BINARY  AND  PACK 
/  5  NIBBLES  PER  NIC  WORD 

/  ARGUMENTS  --  ALL  ARGUMENTS  ARE  PASSED  THROUGH  A  COMMON  AREA 
/  WITH  THE  FOLLOWING  VARIABLES  IN  THE  ORDER  SHOWN- 
/  WPNT  -  POINTS  TO  STORAGE  LOCATION  OF  THE  LAST  WORD 
/  STORED.  THIS  IS  INCREMENTED  WHENEVER  A  WORD  IS 
/  COMPLETE  SO  IT  SHOULD  BE  SET  ACCORDINGLY 
/  ON  INITIAL  ENTRY. 

/  WORD  -  CONTAINS  THE  NIBBLES  OR  PORTIONS  THEREOF  TO 
/  BE  STORED  AT  WPNT+1.  IT  SHOULD  BE  SET  TO  0  ON 
/  INITIAL  CALL. 

/  WCNT  -  A  COUNTER  FOR  WORD.  WHEN  WORD  IS  EMPTY ,WCNT 
/  =5,  WHEN  FULL  WCNT»0.  WHEN  WCNT  GOES  TO  0,  WORD  IS 

/  STORED  AT  WPNT+1  AND  WPNT  IS  INCREMENTED.  SET  TO  6 
/  AT  INITIAL  CALL  TO  DEC. 

/  COUNT  -  THE  NUMBER  OF  NIBBLES+1  TO  BE  PACKED.  NOTE  THAT  COUNT 
/  IS  DECREMENTED  TO  0  BY  DEC. 

/  BCNT  -  BYTE  COUNTER.  SET  TO  1  FOR  INITIAL  CALL. 

/  APNT  -  POINT  TO  CURRENT  STRING  WORD.  SET  TO  1  LESS  THAN  THE 
/  START  OF  THE  STRING  INITIALLY. 

/  CHKSUM  -  NIBBLE  VALUES  ARE  ADDED  &  STORED  IN  CHKSUM.  SET  TO 
/  0  ON  EACH  CALL  TO  DEC  (USUALLY). 

/  NWORD  -  NO.  OF  WORDS  STORED.  (USUALLY  SET  TO  0  AT  EACH  CALL. 

/  NOTE - 

/  IN  ORDER  TO  FORCE  A  WORD  OUT  OF  DEC,  SET  WCNT  TO  COUNT. 

/ 

////////////////////////////////////////////////////////////////////////// 

*3310 
DEC,  0 

START,  MMOMZ  BCNT 


JMP 

#  +  7 

MEMA 

(5 

ACCM 

BCNT 

MPOM 

APNT 

MEMA 

@APNT 

LASH 

1 

ACCM 

TEMP 

MMOMZ 

WCNT 

JMP 

#  +  10 

MEMA 

(5 

ACCM 

WCNT 

MPOM 

WPNT 

MEMA 

WORD 

ACCM 

0WPNT 

MPOM 

NWORD 

ZERM 

WORO 

MMOMZ 

COUNT 

w 


JMP  #+4 
MPOM  BCNT 
MPOM  WCNT 

JMP  @DEC  /NOTE  EXIT 

MEMA  BCNT 

A-MZ  (3 

JMP  DEC1 

MPOM  APNT 

MEMA  @APNT 

ACCM  TEMPI 

RISH  3 

A+MA  TEMP 

JMP  DEC2 

DEC1 ,  A-MZ  (2 

JMP  DEC3 

MEMA  TEMPI 
LASH  5 

ACCM  TEMP 
JMP  DEC2 

DEC3,  MEMA  TEMP 

DEC2,  EXCT  AC19 

A+MA  TRAN 
LASH  3 
ACCM  TEMP 
AN DA  MASK 
ACCM  NIBBLE 
LLSH  4 
A+MM  CHKSUM 

/  GET  READY  FOR  NEXT  WORD 


MEMA 

TEMP 

LASH 

5 

ACCM 

TEMP 

MEMA 

(6 

ACCM 

SHIF1 

MEMA 

WCNT 

M-AM 

SHIF1 

MEMA 

NIBBLE 

MMOMZ  SHIF1 

ZERZ 

JMP 

#+3 

RISH 

4 

JMP 

#  -4 

A+MM 

WORD 

JMP 

START 

/  SCRATCH  STORAGE 

TEMP, 

0 

NIBBLE, 

0 

TEMPI , 

0 

SHIF1 , 

0 
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/  MASKS 
TRAN,  220000 
MASK,  3600000 
/COMMON  STORAGE 
WPNT,  0 
WORD,  0 
WCNT,  0 
COUNT,  0 
BCNT,  0 
APNT,  0 
CHKSUM,  0 
NWORD ,  0 
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//  SUBROUTINE  NI8BI N ( VALUE ,NN IB ,C , 81 N) 

/  REVISION  --  DECEMBER  30,1980 
/  AUTHOR  —  BARRETT  ,TB 

/  PURPOSE  --  CONVERT  PACKED  BCD  OR  BCH  TO  BINARY. 

/  ARGUMENTS  — 

/  VALUE  -  PACKED  BCD  OR  BCH;  MOST  SIGNIFICANT  NIBBLE 
/  AT  UPPER  ORDER  LOCATION  IN  VALUE ; LEFT  JUSTIFIED. 

/  NNIB  -  NO. OF  4  BIT  NIBBLES  TO  BE  CONVERTED 
/  C  -  OCT  12  IF  THIS  IS  A  BCD  VALUE 

/  OCT  20  IF  THIS  IS  A  BCH  VALUE 

/  BIN  -  RETURNS  BINARY  VALUE  HERE 

/ 

/////////////////////////////////////////////////////////////////////// 

*3470 


NI8BIN, 

0 

MEMA 

(6 

ACCM 

SHIP 

MEMA 

0NIB8IN 

ACCM 

VALUE 

MPOM 

NIB8IN 

ZERM 

RESULT 

MEMAZ 

PNIBBIN 

ZERZ 

JMP 

NIB2 

ACCM 

NNIB 

M-AM 

SHIP 

MEMA 

VALUE 

MMOMZ 

SH  IF 

ZERZ 

JMP 

1  +  3 

RISH 

4 

JMP 

1-4 

ACCM 

VALUE 

MPOM 

NIBBIN 

MEMA 

0NIBBIN 

ACCM 

C 

MPOAM 

NIBBIN 

ACCM 

BIN 

MPOM 

NIBBIN 

MEMA 

VALUE 

ON  EM 

MPLCND 

NIBl  , 

ANDA  (17 

TACMQ 
MU  LT 
MPLCND, 

0 

TMQAC 

A+MM 

RESULT 

MMOMZ 

NNIB 

JMP 

1+2 

JMP 

NIB2 

16  4 


MEMA  MPLCND 
ACCM  #+4 
MEMA  C 
TACMQ 
MULT 
0 

TMQAC 

ACCM  MPLCND 
MEMA  VALUE 
RISH  4 
ACCM  VALUE 
JMP  NIB1 

NIB2,  MEMA  RESULT 
ACCM  @BIN 
JMP  0NIBBIN 
VALUE ,  0 

NNIB,  0 
C,  0 
BIN,  0 
RESULT,  0 
SHIF ,  0 
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//  SUBROUTINE  TEKHEX (CNT,NBYTE) 

/  REVISION  —  JANUARY  24,1981 
/  AUTHOR  —  BARRETT ,TB 

/  PURPOSE  —  DECODES  (TO  BINARY)  A  TEKTRONIX  HEX  FILE  AND  PUTS 
/  THE  RESULT  IN  PACKED  FORM  STARTING  AT  LOCATION 
/  100000.  THE  INPUT  FILE  IS  ASSUMED  TO  BE  IN 

/  PACKED  FORM  STARTING  AT  1 00000. 

/  ARGUMENTS  --  CNT  -  TOTAL  NO.  OF  PACKED  WORDS  IN  THE  OUTPUT. 

/  NOTE  THAT  THE  LAST  PACKED  WORD  MAY  HAVE  0  FILL. 

/  ALSO  NOTE  THAT  DEC  PACKS  WORDS  SUCH  THAT  NIBBLEl 

/  OCCUPIES  19-16....  ,NIBBLE5,  3-0. 

/  NBYTE  -  TOTAL  NO.  OF  BYTES  (2  NIBS)  STORED. 

/  -  NOTE  THAT  THIS  SUBROUTINE  ASSUMES  THAT  THE  TEK.  8002  AND 

/  COMM-STOR  ARE  CONFIGURED  SUCH  THAT  EACH  "LEADING"  SLASH  IS 
/  PREFACED  WITH  XOF  (ASCII  223).  ALSO  NOTE  THAT  THERE  ARE 
/  17  (21  OCT)  SURPLUS  CHARS.  AFTER  THE  LAST  CR. 

/  BE  SURE  TO  USE  MX  MODE  WHEN  STORING  THE  HEX  FILE. 

*3565 

TEKHEX,  0 
MEMA  TEKHEX 
ACCM  CNT 
ZERM  @CNT 
MPOMA  TEKHEX 
ACCM  NBYTE 
ZERM  c*NBYTE 
MPOM  TEKHEX 

ONEM  BCNT  /INITIALIZE  DEC 

ZERM  WORDO 

MEMA  (6 

ACCM  WCNTO 

MEMA  BUFS 

A  MO  A 

ACCM  APNT 
ACCM  WPNTO 
TEK  I,  MEMA  (13 
ACCM  COUNT 
MEMA  (6 
ACCM  WCNT 
ZERM  WORD 

MEMA  HEADA  /ADDRESS  OF  HEADER  START 
ACCM  WPNT 
IMS  DEC 

MEMA  HEAD  /CHECK  FOR  ”/” 

LLSH  10 
ANDA  (17 
A-MZ  (17 
ZERZ 

JMP  TEK 2 
JMS  @CRLF 
JMS  @UNP 


12 

1 

TEXT  %  TEKHEX  ER% 

JMP  TEKE  /  GOTO  TEKHEX  END 
TEK2 ,  MEMA  HEAD+1 
LLSH  4 
ACCM  #+2 
JMS  NIBBIN 
0 
2 

20 

0 

MEMA  #-l 
A+MM  @NBYTE 

LASH  1  /*2  FOR  TOTAL  NO.  OF  NIBBLES 

ACCMZ  COUNT 
JMP  #+2 

JMP  TEK3  /NORMAL  TERMINATION-CHECK  FOR  WHETHER 
/  THIS  WAS  LAST  FULL  BYTE. 

MPOM  COUNT 
MEMA  WPNTO 
ACCM  WPNT 
MEMA  WORDO 
ACCM  WORD 
MEMA  WCNTO 
ACCM  WCNT 
ZERM  CHKSUM 
ZERM  NWORD 
JMS  DEC 
MEMA  CHKSUM 

ANDA  (377  /THIS  MOD  256 
ACCM  CHKS 
MEMA  NWORD 
A+MM  @CNT 

MEMA  WPNT  /STORE  STATE  FOR  NEXT  CALL 

ACCM  WPNTO 

MEMA  WORD 

ACCM  WORDO 

MEMA  WCNT 

ACCM  WCNTO 

MEMA  (4  /SET  FOR  GETTING  TRAILER  (3  NIBBLES) 

ACCM  COUNT 

MEMA  (4 

ACCM  WCNT 

ZERM  WORD 

MEMA  HEADA 

ACCM  WPNT 

JMS  DEC 

MEMA  HEAD 
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LLSH  10 
ACCM  #+2 
JMS  NIBBIN 
0 
2 

20 

0 

MEM  A  #-l 
A-MZ  CHKS 
JMP  #+2 
JMP  TEK 1 
JMP  <§CRLF 
JMS  @UNP 
16 
1 

TEXT  %CHECKSUM  ER% 

JMP  TEKE 

TEK 3,  MEMA  WCNTO  /POSSIBLE  EXTRA  WORD  TO  ADD 
A-MZ  (6  /IF  WCNT  IS  6  THE  LAST  WORD  WAS  STORED. 
JMP  #+2 
JMP  TEKE 
MPOM  WPNTO 
MEMA  WORDO 
ACCM  I3WPNTO 
MPOM  @CNT 
TEKE,  JMP  @TEKH  EX 
/  SCRATCH  STORAGE 
WPNTO,  0 
WORDO,  0 
WCNTO,  0 
CNT,  0 
HEAD,  0 

0  /2  WORD  FOR  PACKED  HEADER/TRAILER 

CHKS,  0 
NBYTE ,  0 

/DEFINITIONS 
HEADA,  HEAD-1 
BUFS,  100000 
/EXTERNALS 
UNP,  2650 
CRLF ,  2736 


//  SUBROUTINE  NICFIL (NW , FILNAM) 

/  REVISION  --  JANUARY  26,1980 
/  AUTHOR  —  BARRETT ,TB 

/  PURPOSE  —  TRANSFER  A  CORE  "FILE"  TO  DISK  FILE.  THE  CORE  FILE 
/  STARTS  AT  100000. 

/  ARGUMENTS  — 

/  NW  -  LENGTH  OF  THE  FILE  (WORDS) 

/  FILNAM  -  ADDRESS  OF  THE  NAME  TO  BE  ASSIGNED  TO  THE  FILE. 

/ 

//////////////////////////////////////////////////////////////// 

*4010 

NICFIL,  0 

MEMA  0NICFIL 
ACCM  @OARG2 
ACCM  NW 
ZERM  @OARGl 
MPOM  NICFIL 
MEMA  @NICFIL 
ACCM  AFIL 

MPOM  NICFIL  /SET  FOR  ERROR  RETURN 
JMS  @OPENW 

MEMA  0OARG2  /MAKE  SURE  HAVE  ENOUGH  SPACE 
A-MZ  NW 

EXCT  AC 19  /IF  NEG.  JUMP  TO  ERROR  EXIT 
JMP  ERR 
MEMA  @OARG 1 
ACCM  IT 
JMS  @WRITE 
IT,  0 
NW,  0 
100000 
MEMA  NW 
ACCM  @OARG2 
MEMA  @AFIL 
ACCM  #+5 
MPOM  AFIL 
MEMA  @AFIL 
ACCM  #+3 
JMS  @CLOSE 
0 
0 

JMP  NIC1 
ERR,  JMS  @UNP 
17 
1 

TEXT  %  NO  FILE  SPACE-% 

JMP  0NICFIL 
NIC1 ,  MPOM  NICFIL 
JMP  @NICFI L 
/  SCRATCH  STORAGE 
AFIL,  0 
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//  SUBROUTINE  SEARCH (MNEM , CODE , VALUE , NBYTE ,TABLA , FLAG ) 

/  REVISION  —  JANUARY  22,1981 
/  AUTHOR  —  BARRETT ,TB 

/  PURPOSE  —  SEARCH  A  TABLE  FOR  CODE&VALUE&NO .  OF  BYTES  IN  THE 
/  VALUE  (WHERE  VALUE  IS  A  SINGLE  WORD  WITH  UP  TO 
/  5  NIBBLES)  OR  INSERT  VALUE  &  NO.  OF  NIBBLES  IN  VALUE 

/  PARAMETERS  -- 

/  MNEM  -  3  LETTER  MNEMONIC  (PACKED)  WHICH  IDENTIFIES  AN  ENTRY 
/  CODE  -  THE  CORRESPONDING  CODE  (CAMERA  "SECONDARY  ADDRESS") 

/  VALUE  -  DATA  WORD  ASSOCIATED  WITH  THE  CODE  (MAY  BE  0) 

/  TYPICALLY  THIS  IS  A  BCD  CODE.  FOR  EXAMPLE  1203 
/  WOULD  HAVE  NIBBLES  1,2, 0,3,0  IN  THAT  ORDER  FOR 
/  AN  OCTAL  WORD  =  0220060. 

/  NBYTE  -  NO.  OF  NIBBLES  IN  VALUE  (MAY  BE  0) 

/  TABLA  -  ADDRESS  OF  THE  START  OF  THE  TABLE 
/  FLAG  -  ON  ENTRY,  FLAG  IS  USED  TO  INDICATE  WHETHER  THIS 
/  IS  A  RETURN  (0)  OR  REPLACE  (1)  OPERATION.  ON 

/  SEARCH  OPERATIONS,  FLAG  IS  ALSO  RETURNED  AS  0  FOR 
/  A  SUCCESSFUL  SEARCH  AND  AS  1  FOR  NO-FIND. 

/  NOTE  - 

/  TABLE  HAS  THE  FORM  - 

/  MNEMONIC  (3  PACKED  LETTE RS , R-JUSTIFI ED) 

/  CODE  RIGHT  JUSTIFIED  8-BIT  CODE 
/  N-NIBBLES  NO.  OF  NIBBLES  IN  VALUE 
/  VALUE  PACKED  NIBBLES 
/  ETC. 

/  THE  TABLE  SHOULD  BE  TERMINATED  WITH  @. 

*4070 


SEARCH, 

0 

MEMA 

^SEARCH 

ACCM 

MNEM 

MPOMA 

SEARCH 

ACCM 

CODE 

MPOMA 

SEARCH 

ACCM 

VALUE 

MPOMA 

SEARCH 

ACCM 

NBYTE 

MPOM 

SEARCH 

MEMA 

@SE ARCH 

ACCM 

TABLA 

MPOM 

SEARCH 

JMP 

*  +  5 

SEA1, 

MPOM  TABLA 

MPOM 

TABLA 

MPOM 

TABLA 

MPOM 

TABLA 

MEMA 

@TABLA 

A-MZ 

(300 

JMP 

#+2 

JMP  SEA2  /CANT  FIND 


,1 

I 


A-MZ  MNEM 
JMP  SEAl 
MEMZ  @SEARCH 
JMP  SEA3  /STORE 
MPOM  TABLA 
MEMA  @TABLA 
ACCM  0CODE 
MPOM  TABLA 
MEMA  0TABLA 
ACCM  @NBYTE 
MPOM  TABLA 
MEMA  @TABLA 
ACCM  @ VALUE 
JMP  SEA4 

SEA3 ,  MPOM'  TABLA 
MPOM  TABLA 
MEMA  0NBYTE 
ACCM  0TABLA 
MPOM  TABLA 
MEMA  0VALUE 
ACCM  0TABLA 
JMP  SEA2 

SEA4,  ZERMZ  @SEARCH 
SEA2 ,  ONEM  0SEARCH 
MPOM  SEARCH 
JMP  @SEARCH 
/  SCRATCH  STORAGE 
MNEM,  0 
CODE,  0 
NBYTE ,  0 

TABLA,  0 
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— 1  ‘Mw  mum  . 


//  SUBROUTINE  ZERTAB (TABLE) 

/  PURPOSE  —  ZEROES  THE  COMMAND  TABLE 
/  ARGUMENTS  —  TABLE  -  START  ADDRESS  OF  TABLE 
*4160 

ZERTAB,  0 
MEMA  (23 
ACCM  COUNT 
MEMA  @ZE  RTA8 
ACCM  POINT 
ZE1,  ZERM  @POINT 
MPOM  POINT 
MMOMZ  COUNT 
JMP  ZEl 
MPOM  ZERTAB 
JMP  @ ZERTAB 
/  SCRATCH 
COUNT,  0 
POINT,  0 
/ 

/////////////////////////////////////////////////////////////// 

/ 

//  FUNCTION  MULTP(X) 

/  PURPOSE  —  MULTIPLIES  ACC  BY  X  AND  RETURNS  RESULT  IN  ACC  (LOWER 
/  20  BITS  OF  THE  RESULT.  THE  HIGH  ORDER  BITS  ARE  PUT 

/  IN  THE  MQ  REGISTER. 

MULTP,  0 

TACMQ  /TRANSFER  ACC  TO  MQ  REGISTER 
MEMA  @MULTP 
ACCM  #  +2 
MULT 
0 

ACCM  VALUE 

TMQAC  /TRANSFERS  MQ  (LOW  ORDER)  TO  ACC 
ACCM  VALUE 1 
MEMA  VALUE 

TACMQ  /PUT  HIGH  ORDER  IN  MQ 

MEMA  VALUE 1  /LOW  ORDER  IN  ACC  FOR  RETURN 

MPOM  MULTP  /SET  FOR  RETURN 

JMP  ii)MULTP 

/ 

/////////////////////////////////////////////////////////////// 

/ 

//  FUNCTION  DIVDE(X) 

/  PURPOSE  --  DIVIDE  MQ+ACC  BY  X  AND  RETURN  THE  RESULT  IN  ACC. 

/  RETURN  THE  REMAINDER  IN  X.  NOTE  THAT  MQ  CONTAINS  THE  HIGH 
/  ORDER  BITS  AND  ACC  THE  LOW  ORDER  BITS  OF  THE  DIVIDEND. 

DIVDE,  0 

CLL  /CLEAR  LINK 

EXCT  AC 19 

STL 


172 


LASH  1  /LEFT  SHIFT  DIVIDEND 
ACCM  VALUE  /STORE  TEMPORARILY 
TMQAC  /GET  HIGH  ORDER  BITS 
LASH  1 
EXCT  L 
APOA 

ACCM  VALUEl  /STORE  TEMPORARILY 
MEMA  VALUE 

TACMQ  /LOAD  IT  INTO  MQ 
MEMA  0DIVDE  /GET  DIVISOR 
ACCM  Dl 

MEMA  VALUEl  /PUT  HIGH  ORDER  IN  ACC 
DIVD 
Dl  ,  0 

RISH  1  /RESTORE  THE  REMAINDER 
ACCM  @DIVDE  /AND  STORE  FOR  RETURN 
TMQAC  /QUOTIENT  TO  ACC 
MPOM  DIVDE  /FOR  RETURN 
JMP  @D IVDE 

/ 

////////////////////////////////////////////////////////////////////// J 
/ 

//  SUBROUTINE  SENDF 

/  PURPOSE  —  GIVEN  A  "WORD"  TO  BE  PRINTED  IN  ACC,  SENDF  PRINTS  THE 
/  WORD  ACCORDING  TO  THE  FOLLOWING  RULE- 

/  (I)  IF  SMODE=0  THEN  PRINT  DIRECTLY  AFTER  CONVERTING  TO 
/  NIC  ASCII 

/  (2)  IF  SMODE=l  THEN  CONVERT  TO  DOUBLE  HEX  AND  PRINT.  ALSO  COUNT 
/  CHARACTERS  (OR  WORDS)  AND  AT  END  OF  WCNT0  WORDS  DO  A  CR.  THE 
/  WORD  COUNTER  COUNTER  SHOULD  BE  SET  TO  WCNT0  INITIALLY. 

/  SMODE , WCNT  AND  WCNT0  CAN  BE  CONSIDERED  IN  COMMON  DECLARED  IN  SENDF. 
SENDF,  0 
MEMZ  SMODE 
JMP  HEXM 
A+MA  (200 
JMS  @TYPE 
JMP  HEXM2 

HEXM,  ONEM  LCNT  /SET  NIBBLE  COUNT  TO  2 
MPOM  LCNT 
RLSH  4 

HEXMl ,  ACCM  VALUE 
MEMA  (260 
ACCM  PREF 
MEMA  VALUE 
ANDA  (17 
ACCM  VALUEl 
A-MA  (12 
EXCT  AC 19 
JMP  #+4 


APOM 

VALUEl 

MEMA 

(300 

ACCM 

PREF 

MEMA 

VALUEl 

A+MA 

PREF 

JMS 

@TYPE 

MEMA 

VALUE 

LLSH 

4 

MMOMZ 

LCNT 

JMP 

HEXMl 

HEXM2, 

MMOMZ  WCNT 

JMP 

SENDE 

MEMA 

WCNT0 

ACCM 

WCNT 

JMS 

i§CRLF 

SENDE, 

JMP  @SENDF 

/  SCRATCH  STORAGE 
VALUE,  0 


VALUEl ,  0 

PREF,  0 
LCNT,  0 
/  COMMON 
WCNT,  0 
SMODE,  0 
WCNT0 ,  0 

/ 

/////////////////////////////////////////////////////////////////} 

/ 

//  SUBROUTINE  GETFIL 

/  PURPOSE  —  ASKS  FOR  FILE  WANTED  AND  GETS  THE  FILE  INTO  NIC 
/  CORE  STARTING  AT  100000.  IF  THE  FILE  IS  UNAVAILABLE, 

/  AN  ERROR  MESSAGE  IS  PRINTED  AND  THE 

/  ERROR  EXIT  IS  TAKEN.  (NORMAL  EXIT  IS  2  BEYOND  CALL  POINT.) 
GETFIL,  0 
JMS  @UNP 
14 
0 

TEXT  %  FILE  NAME?=% 

JMS  @PKR 

FILNAM 

0 

JMS  @CRLF 
JMS  @OPENR 
FILNAM,  BLOCK  2 
MEMA  @OARGl 
SKIP  AC 19 
JMP  GETF1 

JMS  @UNP  /FILE  DOES  NOT  EXIST 
24 
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1 

TEXT  %  FILE  DOES  NOT  EXIST* 

JMP  @GETFI L 
GETFl,  MEMA  @OARG 1 
ACCM  ITG 
MEMA  0OARG  2 
ACCM  SIZE 
JMS  @READD 
ITG,  0 
SIZE,  0 

MPOM  GETFl L 
JMP  HGETFIL 

/ 

/  SUBROUTINE  PAUSE 
/  PURPOSE  —  VARIABLE  PAUSE 
PAUSE,  0 

MEMA  0PAUSE 
ACCM  COUNT 
MMOMZ  COUNT 
JMP  l-I 
MPOM  PAUSE 
JMP  0PAUSE 

/ 

/  SUBROUTINE  OCT(X) 

/  PURPOSE  --  PACKS  USER  GIVEN  OCTAL  VALUE  (UP  TO  7  DIGITS)  INTO  LOCATION 
/  X.  THE  VALUE  IS  RIGHT  JUSTIFI ED , ZERO  FILL  (E.G.l  =>  0000001). 

OCT,  0 

MEMA  0OCT 
ACCM  VALUE 

ZERM  OVALUE  /ZERO  FILL  THE  NUMBER 
OCT1 ,  JMS  0ECHO  /GET  NEXT  DIGIT 
A-MZ  (215  /IF  CR  WE  ARE  THROUGH 
ZERZ 

JMP  OCTE 

A-MA  (260  /CONVERT  FROM  ASCII  TO  OCTAL 


ACCM  VALUE 1 

MEMA  @VALUE 
LLSH  3 
A+MA  VALUE1 

ACCM  RVALUE  /STORE  NEW  VALUE 
JMP  OCTl 
OCTE,  MPOM  OCT 
JMP  (§OCT 

/ 

/  EXTERNALS 
UNP,  2650 
PKR ,  3240 

CRLF ,  2736 

OPENR,  2432 
READD,  2511 
TYPE,  2731 
OPENW,  2420 
WRITE,  2470 
CLOSE,  2451 
ECHO,  2257 
/  DEFINITIONS 
OARG1  ,  777  0 

OARG2,  7771 

////////////////////////////////////// 

/ 


APPENDIX  D 


The  Tektonix  "WHEX"  File 


The  source  code  for  the  CTL  was  developed  on  a  Tektronix  8002A  uP 
Laboratory  using  assembly  language  and  Zilog  mnemonics.  The  pro¬ 
gram  was  then  assembled  and  stored  as  a  "load’'  file.  The  load 
file  was  then  loaded  into  memory  and  finally  stored  as  a  Hexadeci¬ 
mal  file  using  the  Tektronix  WHEX  command.  In  this  form  the  file 
can  be  transferred,  for  example,  to  the  Sykes  Comm-Stor.  This 
appendix  shows  the  structure  of  the  WHEX  file  and  the  configura¬ 
tion  of  Comm-Stor  which  was  used  when  receiving  the  WHEX  file. 

I.  Tektronix  Hexadecimal  File  Structure 


General  Fornat 


(Header) 

Location 

Counter 

Byte 

Count 

First 

Checksum 

Data 

Second 

Checksum 

CR 

(EOL) 


Format  Description 


Name 

No.  of  ASCII 

Characters 

Content  Description 

Header 

1 

Always  a  slash  (/). 

Location  Counter 

4 

Four  hexadecimal  digits  iepresentinq  the  starting  memory 
location  of  the  block 

Byte  Count 

2 

Two-digit  hexadecimal  value  specifying  the  number  o!  data 
bytes  in  the  data  field  of  the  block 

First  Checksum 

2 

Two-d'git  hexadecimal  number  representing  the  hciadecimal 
sum  of  the  values  of  the  six  digits  that  make  up  the  location 
counter  and  the  byte  count 

Data 

2’N 

N  data  bytes,  each  represented  as  two  hexadecimal  diqns  Each 
hex  digit  is  coded  as  an  ASCII  character  0-9  or  A  F  There  car, 
be  a  maximum  of  thirty  data  bytes  (sixty  hesadecima 
digits)  per  block. 

Second  Checksum 

2 

Two-digit  hexadecimal  number  representing  the  sum,  modulo 
256,  of  the  hexadecimal  values  of  the  digits  that  make  up  the 

II. 


Sykes  Comm-Stor  Configuration  for  communications  with  the 
Tektronix  8002  Development  Laboratory.  (Comm-Stor  should  be 
in  the  MX  mode  while  receiving  a  WHEX  file.) 


•  *  «  I  IL.I 


10: 
i  i  : 


c.1-1 
-  1 


MESSAGES 
MESSAGES  t  C  LF . 


(YES) 
[CR  j  i 


I.  tiu  J 


END  OF  LINE  CHARACTER  (CCP3) 

SYSTEM  TO  ADD  LINE  FEEL  PETER  CARRIAGE  RETURN- 
LINE  FEED  CHflRfiCTER  (CLF3) 
tPRPIflGE  RETURN  L  HhRAlTER'  FuR  SYSTEM 
LINE  FEED  CHPRPCTER  FOR  SYSTEM 
END  OF  TEXT  CHPRPCTER  ([123) 

TRANSMIT  "END  OF  TEXT"  CHPRPCTER?  (YES) 

TRANSMIT  "END  OF  TRANSMISSION"  CHPRPCTER' 

"END  OF  TRANSMl SS I ON "  CHPRPCTER  (LTD]) 

"RESET"  CHPRPCTER  (CtT3) 

SFPCE  CHPRPCTER  FOR  SYSTEM  MESSAGES 
FIRST  CHPRPCTER  OF  ESCAPE  SEQUENCE 
PARITY  ERROR  SYMBOL  (?) 

"STOP  SEND-  START  SEND"  OPTION  (8) 

"STOF  '•END"  CHARACTER  (TO  COMPUTER) 

"START  SEND"  CHARACTER  (TO  COMPUTER) 

"HOLD"  CHARACTER  (FROM  COMPUTER  -TERM I NAL )  ( [1ST 

"RESUME"  CHARACTER  (FROM  COMPUTER-- TERM  I  NAL)  (HQ  3) 

OUTPUT  NUMERICAL  ERROR  MESSAGES?  (NO) 


i  ) 

( [TP 3 ) 


(ITS]) 

(CtQ3) 


iEl." 

SEND  ERROR  ME 

S SAGES  TO 

MODEM?  ( NC 

L  j* 

OUTPUT  DELAY 
FORTS  (M) 
DELAY  FACTOR 

CHARACTER 

I.30) 

#1 

([CR]) 

j.  4  S 

OUTPUT  DELAY 
PORTS  (NONE) 
i  E  LA'i  F  ACT  CP 

CHARACTER 

!  1 A ) 

#£ 

(CCR3) 

I-cr  - 

L..  J  • 

OUTPUT  DELAY 
FORTS  t.T) 
DELAY  FACTOR' 

LHhRHC  T  ER' 

i.5 ) 

#3 

(CLF3) 

L~  • 

OUTPUT  DELAY 
PORTS  (T) 
DELAY  F  Ac  T  UR' 

L  HARAcTEF’ 

i  5 ) 

#4 

( [lR3 ) 

01  1  " 

"DELETE"  CHARACTER  ENTERED 

(IBS] 

"DELETE"  CHARACTER  ECHOED  (EES3) 

"LINE  CANCEL"  CHARACTER  ( CTX3 ) 

NUMBER  OF  LINES  ON  PAGE  (£4) 

STOP  DISPLAY  AFTER:  EACH  PAGE?  (NO) 

SUBSTITUTE  TERMINAL  PARITY  ERRORS  PITH  ERROR  SYMBOL' 
MODEM  OFF-LINE  ALERT  CHARACTER  (CtG3) 

INHIBIT  ECHO  TO  TERMINAL?  (NO) 

IGNORE  "NULL"  CHARACTER  FROM  TERMINAL?  (YES) 
TERMINAL  "NULL"  CHARACTER  (CNULL3) 

NORMAL  TERMINAL  DATA 

mpiB  ,,c,c:i 

INCLUDING  FIXED  BITS  i IF  ANY)  (S) 

EIGHTH  DATA  BIT  iQ) 

TINARY  TERMINAL  DATA 

cciDT  t'.  _  n  ru.  fiTiri.-mnr  INANE'' 


i.f 
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HALF  duplex  MODEM?  (NO) 

**DOES  NOT  APPLY  TO  FULL -DUPLEX  MODEMS** 

**BGES  NOT  APPLY  TO  FULL-DUPLEX  MODEMS** 

**DOES  NOT  APPLY  TO  FULL-DUPLEX  MODEMS** 

**DOES  NOT  RPPLY  TO  FULL-DUPLEX  MODEMS** 

**DOES  NOT  RPPLY  TO  FULL-DUPLEX  MODEMS** 

WRIT  AFTER’  EOL  FOR  PROMPT  OR  fiFTEP  ETX  FOR  PCM 
CHARACTER  TO  INITIATE  UR IT  PERIOD  ffETXI' 

WRIT  FOR  PROMPT  EEFORE  STARTING  TRANSMISSION'' 
"PROMPT’’  OR  "ACKNOWLEDGE"  CHARACTER  (NFU 
"RETRANSMIT  MESSAGE"  CHARACTER  »TTU3) 

IGNORE  "NULL"  CHARACTER  FROM  MODEM''  1.YES1 
MODEM  "NULL"  CHARACTER  (CNULU) 

IS  ATTACHED  MESSAGE  ECHOED'  (YES) 

SUBSTITUTE  MODEM  PARITY  ERRORS  WITH  ERROR  SYMBOL" 
CHECK  FOR  MODEM  FRAMING  ERRORS"’  (NO) 

INACTIVITY  TIMEOUT  (INACTIUE) 

NORMAL  MODEM  DATA 
PARITY  -  E'.EH-  t  ’DD-  NONE  lEUEN) 

HUMBER  OH  DATA  PITS  EXCLUDING  F’AF’ITY  rlu 
INCLUDING  FIXED  I  ITS  (IF  ANY)  (7) 

BInhRi  MODEM  DATA 
PARITY  -  EOEfi  - ODD  NONE  (NONE) 

NUMBER  OF  DATA  BITS 
INCLUDING  FIXED  BITS  (IF  ANY)  (£:) 

DOES  MODEM  PROUIDE  "DATA  SET  READ',"1  ?  (NO) 

mmk  m iNsTfluxB?  <wo» 

PARITY  -  EUEN-- ODD  NONE  (ELEN) 

NUMBER  OF  DATA  BITS  EXCLUDING  PARITY  AND 
INCLUDING  FIXED  BITS  (IF  ANY)  (?) 

PRINTER  INTERFACE  CONTROL  (STANDARD) 

DOES  PRINTER  PROUIDE  "DATA  TERM  READY""'  »NO) 
DOES  PRINTER  PROUIDE  "SEC.  REQUEST  TO  SEND"? 

DOES  PRINTEF  REQUIRE  "LINE  FEED"  AFTER  "CARP IF 


CHARACTER  TO  SEPARATE  COMMAND  AND  ARGUMENT 
CHARACTER  TO  SEPARATE  MESSAGE  NAMES  (■) 


1  NO  1 

END"?  t NO  1 
"CARRIAGE  PEI 


CHARACTER  TO  SEPARATE  MESSAGE  MAMES  (  -  ) 

CHARACTER  TO  START  "ENTER  AUTOMATIC"  INCREMENTING  F I EL 
CHARACTER  TO  END  "ENTER  AUTOMATIC"  INCREMENTING  FIELD 
CHARACTER  TO  SEPARATE  MESSAGE  NAME  AND  EXTENSION  ’ +  1 
CHARACTER  tq  SEPARATE  COMMAND  AND  ATTACHED  MESSAGE  (t 
DIRECTORY  BOUNDARY'  SPECIFICATION  CHARACTEF  1*) 

"DON’T  CARE"  CHARACTER  FOR  EXTENSION  ("'• 

SYNTAX  ERROR  RESPONSE  1 

IJSER  RESPONSE  Tu  "SURE?"  MESSAGE  ('-■  ) 

System  command  character  -  terminal  and  modem  i » ) 

SYSTEM  COMMAND  CHARACTER  -  MODEM  ONLY  1  -  .1 
"SELECT  DRIl'E  1"  CHARACTER  '  1) 

"SELECT  DRIL'E  £"  CHARACTER  (£) 

"BAUD  MODEM"  COMMAND  (BN) 

"BAUD  PRINTER"  COMMAND  1 BT 1 
"BAUD  TERMINAL"  COMMAND  (ET) 

"COPY"  COMMAND  (C) 

"CANCEL"  COMMAND  'CN' 


?  1  z 

PP: 


—  VI  1 1  I 


94: 

jC"* 


7ti  » 

7  r  ■ 

99: 

1 00 : 

L01: 

or 


l  c  < 


.  06 : 
104: 
.  05 : 
06: 


.  l  i  • 

.  OS: 
09: 
10: 
1  1 : 


18: 

13: 


14: 

15: 


-;4: 


*-t  ►..»  • 

41 


'ECHO  MODE"  COMMAND  (EM) 

'ECHO  EMIT"  COMMAND  (EX) 

'INCLUDE  MODE"  COMMAND  (IM) 
'INCLUDE  MODE  EMIT"  COMMAND  (IX) 
'LORD  EXTENSION"  COMMAND  i'LE) 


16: 
17: 
It: 
19: 
EC : 
81: 


34: 


(MX) 


‘pro 


‘LORD  INITIhL  UHLUE"  COMMAND 
'MONITOR  MODE"  COMMAND  (MM) 
'MONITOR  MODE  EXIT"  COMMAND 
•PRINT"  COMMAND  (P) 

"PRINT  DIRECTORY"  COMMAND 
"PECEIUE"  COMMAND  (Rj 
"RECEIUE  AUTOMATIC"  COMMAND 
"SEND"  COMMAND  (S) 

"SEND  DIRECTORY"  COMMAND  (SD) 
"SEND  STATUS"  COMMAND  i'SS) 
"SEQUENTIAL  MODE"  COMMAND  (SM) 
"ALFHA  MODE"  COMMAND  (AM) 
"STANDBY  MODE"  COMMAND  (SB) 
"WRITE-ENABLE  DISK"  COMMAND 
"WRITE-PROTECT  DISK"  COMMAND 
EDIT  OPTION  INSTALLED'  (YES) 
EDITOR  LINE  NUMBER  SEPARATOR 
EDITOR  CHARACTER  STRINf  ' 

EDIT  COMMAND  CHARACTER 
"MOUE  PILE"  COMMAND  (MU) 

"SAME  FILE"  COMMAND  (SCO 
EDITOR  "APPEND"  COMMAND 
"DELETE"  COMMAND 
"INSERT"  COMMAND 
"LINE  COUNT"  COMMAND 
"PILL"  COMMAND  iQ) 
"LIST"  COMMAND  (L) 

" L I ST-NUMBERED "  COMMAND 
"REPLACE"  COMMAND  (R) 
"SEARCH"  COMMAND  (T) 
OPTION  INSTALLED"  (YES) 


i  LI ) 


(RA) 


i  WE1 
(WOO 


!  j  1 


DELIMITER 

( : ) 


i.  ,•••  i 


EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

FORMS 


(A) 

(D) 

(I) 


i  =  i 


(N) 


CHARACTER  TO  START  FORMS  MAP  I  ABLE  FIELD  I'CTft]) 
CHARACTER  TO  END  FORMS  UARIABLE  FIELD  ([TED 
"FORMS  COMPLETE"  COMMAND  (FC) 

"rQE’MS  UARIABLE"  COMMAND  (FO 
"FORMS  EXIT"  COMMAND  (FX) 


FORMS 
f  OF'MS 
FORMS- 
FORMS' 
FORMS 


MODE  STRING  SEARCH  CHARACTER 


[  T  Y  3 ) 


i  [  T  L  3  1 
i  DTE], i 
f  C  TOD 
iCTND 


MODE— CLEAR  FORM  CHAF'AcTEF' 

"LINE  RE-ENTER"  CHARACTER 
MODE  -  FILL  IN  FROM  DF'IUE 
MODE  -  FILL  IN  FROM  DRIP'E 
FORMS  "TAB"  CHARACTER  (CTAED 
ANSWERBACK  MESSAGE  i.**hur€**) 

CHAF'ACTEF  TO  INITIATE  AHSWEF'EACP  LESS  AGE  U01ED 

USER  COMMAND  TABLE  if  TRIP  C  HE!  :#COF'Y- CHEN?  CONOICF'3 
S  ELF  -S  TART  1 1  iG  S  YS  TEM  "  1 1  (0 ) 

-  -  *  orirr  T  i*  j  t  t  T  Cil  r  m  I  j^rr  T  TTiN* 
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APPENDIX  E 


As  mentioned  in  the  body  of  this  report,  the  CTL  "operating  sys¬ 
tem"  is  designed  to  allow  the  CTL  to  partake  in  data  transfers 
only  if  it  is  the  Controller-in-charge  of  the  bus.  It  will 
"wake-up"  in  this  state  if  the  SYC-switch  is  placed  in  the  on 
position  prior  to  power-on  or  reset.  However,  it  is  also  de¬ 
signed  to  have  control  transferred  to  it  from  another  Controller, 
provided  the  SYC-switch  is  placed  in  the  off  position.  (it  will 
remain  in  control  until  reset.)  This  transfer  of  control  can  be 
done  from  an  HP  9825A  Calculator  using  the  program  statement 

pet  701 

where  701  is  the  select  code  (7)  of  the  98024A  Interface  Module 
and  the  CTL  device  address  (01).  This  assume,  of  course,  that 
the  CTL  address  switches  have  been  set  for  address  1. 


The  following  annotated  listing  illustrates  9825A  code  which  can 
be  used  to  service  the  Hamamatsu  camera  while  the  Calculator  is 
Controller-in-charge  (i.e.,  prior  to  sending  the  pet  command). 

(a)  serial  poll 


if  bit  (7,rds{7))=0  ;  goto  +0  (wait  for  SRQ) 

(get  status  byte) 


(specifies  that  select  code  7  is  impli¬ 
cit  in  all  succeeding  wti  operations) 
(send  ASCII  1  (decimal  49)  to  camera 
with  secondary  address  02) 

(write  to  register  7,  binary  10010000. 
This  causes  EOI  to  be  sent  with  the  next 
data  byte.) 

(send  CR  (decimal  13)  with  EOI) 

(write  to  register  7,  binary  10000000. 
This  clears  EOI) 


rds 

(702)  — > 

came 

ra  "input 

wti 

0,7 

wtb 

70202,49 

wti 

7,144 

wtb 

731 ,13 

wti 

7,128 

(c)  read  camera  video  data  (each  pixel  consists  of  4  ASCII 
characters  -  3  numerals  and  1  space) 

dim  F$  [  600 , 4] 

for  J*1  to  600;  red  702,  F$[J) 
fmt  f0xc4 

dsp  J,  F$[J];  wait  50 
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MISSION 
of 

Rome  Air  Development  Center 

RAVC  pla.ru>  and.  exec utes  research,  de.veZopme.nt,  teAt  and 
&  elected  acquisition  programs  In  support  of  Command,  Contact 
Communications  and  Intelligence  (C3 1)  activities.  Technical 
and  engineering  support  within  areas  of  technical  competence 
4S  provided  to  ESV  Program  0 ibices  (P04)  and  other  ESP 
elements.  The  principal  technical  mission  areas  are 
communications,  electromagnetic  guidance  and  control,  sur- 
veillance  of  ground  and  aerospace  objects,  intelligence  data 
collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences,  microwave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 
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